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