From: Martin Mares <mj@ucw.cz>
Date: Wed, 15 Feb 2012 22:47:56 +0000 (+0100)
Subject: `bex queue' without more arguments lists all queues
X-Git-Tag: v3.0~16
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=a8c9939f70a7655160cf2cf01979c0372318afd7;p=bex.git

`bex queue' without more arguments lists all queues
---

diff --git a/lib/bin/queue b/lib/bin/queue
index 170ba50..eacecc1 100755
--- a/lib/bin/queue
+++ b/lib/bin/queue
@@ -11,7 +11,7 @@ my $init;
 
 GetOptions(
 	"init!" => \$init,
-) && @ARGV or die <<AMEN ;
+) or die <<AMEN ;
 Usage: bex queue [<options>] <subcommand>
 
 Subcommands:
@@ -22,7 +22,7 @@ Options:
 None defined so far.
 AMEN
 
-my $op = shift @ARGV;
+my $op = shift @ARGV // 'ls';
 
 if ($op eq 'init') {
 	my $queue_name = shift @ARGV or die "bex queue init requires a queue name\n";