We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent d0ad165 commit fe77bb1Copy full SHA for fe77bb1
git-annotate.perl
@@ -10,9 +10,10 @@
10
use strict;
11
use Getopt::Long;
12
use POSIX qw(strftime gmtime);
13
+use File::Basename qw(basename dirname);
14
15
sub usage() {
- print STDERR 'Usage: ${\basename $0} [-s] [-S revs-file] file [ revision ]
16
+ print STDERR "Usage: ${\basename $0} [-s] [-S revs-file] file [ revision ]
17
-l, --long
18
Show long rev (Defaults off)
19
-t, --time
@@ -23,7 +24,7 @@ ()
23
24
Use revs from revs-file instead of calling git-rev-list
25
-h, --help
26
This message.
-';
27
+";
28
29
exit(1);
30
}
@@ -35,7 +36,7 @@ ()
35
36
"help|h" => \$help,
37
"rename|r" => \$rename,
38
"rev-file|S=s" => \$rev_file);
-if (!$rc or $help) {
39
+if (!$rc or $help or !@ARGV) {
40
usage();
41
42
0 commit comments