query-rc learns '-q' option

src/Gitolite/Rc.pm

@@ -129,6 +129,7 @@ sub glrc {
 
 my $all   = 0;
 my $nonl  = 0;
+my $quiet = 0;
 
 sub query_rc {
 
@@ -144,7 +145,7 @@ sub query_rc {
     }
 
     my @res = map { $rc{$_} } grep { $rc{$_} } @vars;
-    print join( "\t", @res ) . ( $nonl ? '' : "\n" ) if @res;
+    print join( "\t", @res ) . ( $nonl ? '' : "\n" ) if not $quiet and @res;
     # shell truth
     exit 0 if @res;
     exit 1;
@@ -192,6 +193,7 @@ Usage:  gitolite query-rc -a
 
     -a          print all variables and values
     -n          do not append a newline
+    -q          exit code only (shell truth; 0 is success)
 
 Example:
 
@@ -200,6 +202,8 @@ Example:
 
     gitolite query-rc -a
     # prints all known variables and values, one per line
+
+Note: '-q' is best used with only one variable.
 =cut
 
 sub args {
@@ -208,10 +212,11 @@ sub args {
     GetOptions(
         'all|a'   => \$all,
         'nonl|n'  => \$nonl,
+        'quiet|q' => \$quiet,
         'help|h'  => \$help,
     ) or usage();
 
-    usage("'-a' cannot be combined with other arguments") if $all and @ARGV;
+    usage("'-a' cannot be combined with other arguments or options") if $all and ( @ARGV or $nonl or $quiet );
     usage() if not $all and not @ARGV or $help;
     return @ARGV;
 }