git.shiar.nl
/
git-grep-footer.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d98fc39
)
relay leading commit hashes
author
Mischa POSLAWSKY
<perl@shiar.org>
Fri, 4 Feb 2011 05:46:20 +0000
(06:46 +0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Fri, 4 Feb 2011 06:08:37 +0000
(07:08 +0100)
git-grep-footer
patch
|
blob
|
history
diff --git
a/git-grep-footer
b/git-grep-footer
index 0c26549197cfddfa4eeb8e511edd4aab1134dcde..fa417c114bb41bf8ad9604a7665eb56ae2e0235d 100755
(executable)
--- a/
git-grep-footer
+++ b/
git-grep-footer
@@
-28,7
+28,7
@@
my $HEADERMATCH = qr/ [a-z]+ (?: (?:-\w+)+ | \ by ) /ix;
my (%headercount, @headercache);
while (readline) {
my (%headercount, @headercache);
while (readline) {
- s/
(.+)\n//m;
+ s/
^([0-9a-f]{4,40})\n//m and
my $hash = $1;
# strip commit seperator
my $hash = $1;
# strip commit seperator
@@
-118,11
+118,13
@@
while (readline) {
next BLOCK if not @headers;
if ($opt{debug} and $prefix) {
next BLOCK if not @headers;
if ($opt{debug} and $prefix) {
- say
"infix junk in commit $hash"
;
+ say
sprintf ': invalid lines in %s (%s)', $hash // 'block', $prefix
;
}
for (@headers) {
my $line = $_->[2] // join(': ', @$_);
}
for (@headers) {
my $line = $_->[2] // join(': ', @$_);
+ $line =~ s/^/$hash / if defined $hash;
+
if (defined $opt{min} or $opt{max}) {
my $counter = \$headercount{ $_->[0] }->{ $_->[1] // '' };
my $excess = $$counter++ - ($opt{min} // 0);
if (defined $opt{min} or $opt{max}) {
my $counter = \$headercount{ $_->[0] }->{ $_->[1] // '' };
my $excess = $$counter++ - ($opt{min} // 0);