From a8c9939f70a7655160cf2cf01979c0372318afd7 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Wed, 15 Feb 2012 23:47:56 +0100
Subject: [PATCH] `bex queue' without more arguments lists all queues

---
 lib/bin/queue | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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";
-- 
2.39.2