Fixed alias for "bex prun"

[bex.git] / bex

diff --git a/bex b/bex
index 76c2c3cda50f40882beb97f766eb42582489d7b4..592fb24c1703bfdcec44326eca67112b1aabd172 100755 (executable)
--- a/bex
+++ b/bex
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
-# Batch EXecutor 3.0 -- Master Program
-# (c) 2012 Martin Mares <mj@ucw.cz>
+# Batch EXecutor -- Master Program
+# (c) 2012--2015 Martin Mares <mj@ucw.cz>
 
 use strict;
 use warnings;
@@ -20,7 +20,7 @@ General options:
 Commands (and aliases):
 add (a)                Add new jobs to a queue
 help           Show this help
-job            Operations on queued jobs
+job (j)                Operations on jobs
 mach           List known machines and groups
 prun (pr)      Parallel version of `run'
 qman           Management of queues
@@ -36,7 +36,7 @@ GetOptions(
        "lib=s" => \$bex_lib,
        "help" => \&show_help,
        "version" => sub {
-                       print "BEX 3.0 (c) 2011-2012 Martin Mares <mj\@ucw.cz>\n";
+                       print "BEX 3.3 (c) 2011-2015 Martin Mares <mj\@ucw.cz>\n";
                },
 ) or die "Try `bex help' for more information.\n";
 Getopt::Long::Configure('default');
@@ -59,7 +59,8 @@ if ($sub eq 'help') { show_help(); }
 
 my %aliases = (
        'a' => 'add',
-       'p' => 'prun',
+       'j' => 'job',
+       'pr' => 'prun',
        'q' => 'queue',
        'r' => 'run',
 );