From 701321302ce03c18724852a12f00df8fe4f9cff6 Mon Sep 17 00:00:00 2001
From: Roland Kuhn <rk@rkuhn.info>
Date: Thu, 29 Aug 2013 11:16:59 +0200
Subject: [PATCH] fix scripts/authors.pl

- used to omit commits which touched only one file
- used to omit commits which only inserted or deleted lines
---
 scripts/authors.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/scripts/authors.pl b/scripts/authors.pl
index 89502c6985..a3536ff110 100755
--- a/scripts/authors.pl
+++ b/scripts/authors.pl
@@ -17,15 +17,17 @@ our $author;
 
 my $input;
 if (@ARGV > 0) {
-  open $input, "git log --shortstat -z --minimal -w -C $ARGV[0]|" or die "cannot open pipe for $ARGV[0]: $!\n";
+  open $input, "git log --no-merges --shortstat -z --minimal -w -C $ARGV[0]|" or die "cannot open pipe for $ARGV[0]: $!\n";
 } else {
   $input = \*STDIN;
 }
 
 while (<$input>) {
   ($author) = /Author: (.*) </;
-  my ($insert, $delete) = /files changed, (\d+) insert.* (\d+) delet/;
-  next unless defined $insert;
+  my ($insert, $delete) = /files? changed(?:, (\d+) insertions?\(\+\))?(?:, (\d+) delet)?/;
+  next unless defined $author;
+  $insert = 0 unless defined $insert;
+  $delete = 0 unless defined $delete;
   $auth{$author} = [0, 0, 0] unless defined($auth{$author});
   my @l = @{$auth{$author}};
   $auth{$author} = [$l[0] + 1, $l[1] + $insert, $l[2] + $delete];