From f3872bf5d964f8df005095640b7883352be82d27 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 3 Nov 2005 10:06:50 +0000
Subject: [PATCH] add multiple levels of quick

---
 sa | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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,
 		);
      }
-- 
2.39.2