[PATCH] Make "git shortlog" understand raw logs

[git.git] / git-shortlog.perl

diff --git a/git-shortlog.perl b/git-shortlog.perl
index 107c895..8f0984b 100755 (executable)
--- a/git-shortlog.perl
+++ b/git-shortlog.perl
@@ -108,7 +108,7 @@ sub changelog_input {
                if ($pstate == 1) {
                        my ($email);
 
-                       next unless /^Author: (.*)<(.*)>.*$/;
+                       next unless /^[Aa]uthor:? (.*)<(.*)>.*$/;
        
                        $n_records++;