Commit | Line | Data |
---|---|---|
1a95a0fc | 1 | #!/usr/bin/perl |
2 | ||
3 | die "usage: $0 [git-log-options] num" unless @ARGV; | |
4 | ||
5 | my $num = 1; | |
6 | ||
7 | for (@ARGV) { | |
8 | m{^\d+$} && (($change,$_) = ($_,undef)); | |
9 | m{^-\d+$} && (($num,$_) = (-$_,undef)); | |
10 | } | |
11 | ||
12 | my $grep = "--grep=^p4raw-id:.*\@$change\$"; | |
13 | @ARGV = grep { defined } @ARGV; | |
14 | ||
15 | if ( -t STDOUT or @ARGV ) { | |
16 | system(qw(git log), $grep, "-$num", "--all", @ARGV); | |
17 | } | |
18 | else { | |
19 | system(qw(git rev-list -1 --all), $grep); | |
20 | } |