`bex queue' without more arguments lists all queues

diff --git a/lib/bin/queue b/lib/bin/queue
index 170ba50a36cc23a2c4cf09c1cba7c5136361130f..eacecc1c9586acf0e5b797cd761557cc31c82ea1 100755 (executable)
--- 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";