Signed-off-by: Matthias Kestenholz <matthias@spinlock.ch>
use strict;
use Getopt::Long;
use POSIX qw(strftime gmtime);
use strict;
use Getopt::Long;
use POSIX qw(strftime gmtime);
+use File::Basename qw(basename dirname);
- print STDERR 'Usage: ${\basename $0} [-s] [-S revs-file] file [ revision ]
+ print STDERR "Usage: ${\basename $0} [-s] [-S revs-file] file [ revision ]
-l, --long
Show long rev (Defaults off)
-t, --time
-l, --long
Show long rev (Defaults off)
-t, --time
Use revs from revs-file instead of calling git-rev-list
-h, --help
This message.
Use revs from revs-file instead of calling git-rev-list
-h, --help
This message.
"help|h" => \$help,
"rename|r" => \$rename,
"rev-file|S=s" => \$rev_file);
"help|h" => \$help,
"rename|r" => \$rename,
"rev-file|S=s" => \$rev_file);
+if (!$rc or $help or !@ARGV) {