X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=sa;h=d09a139cf33998982f9b08938f226d421a8e4eb0;hb=f3872bf5d964f8df005095640b7883352be82d27;hp=0557d25f952b3d6725e6dda1389cf1c84a5580b5;hpb=a22d86f9f7625e99cd9f09bedb4d964039d2c732;p=bin.git diff --git a/sa b/sa index 0557d25..d09a139 100755 --- a/sa +++ b/sa @@ -56,7 +56,7 @@ my %options = (quick => 1, man => 0, ); -GetOptions(\%options,'quick|Q!','quiet|q!','debug|d+','help|h|?','man|m'); +GetOptions(\%options,'quick|Q+','quiet|q!','debug|d+','help|h|?','man|m'); pod2usage() if $options{help}; pod2usage({verbose=>2}) if $options{man}; @@ -101,7 +101,6 @@ for ('/etc/sa.conf', "${HOME}/.sarc", "${HOME}/.sarc_${HOSTNAME}", "${HOME}/.sar } } - $DEBUG = $options{debug}; my $command; @@ -113,13 +112,13 @@ else { $command = 'status'; } - while (my ($repo,$run_after) = each(%repos)) { if (-e "$repo/.svn") { system('svn', $command, $options{quiet}?'-q':(), - $options{quick}?('--ignore-externals','-N'):(), + $options{quick}?'--ignore-externals':(), + $options{quick}>1?'-N':(), $repo, ); }