From 415c5f2981c7b971420a53a16917608878961089 Mon Sep 17 00:00:00 2001
From: Ignasi Marimon-Clos <ignasi@lightbend.com>
Date: Tue, 9 Feb 2021 08:18:40 +0100
Subject: [PATCH] Removes obsolete authors.pl (#30010)

---
 scripts/authors.pl | 44 --------------------------------------------
 1 file changed, 44 deletions(-)
 delete mode 100755 scripts/authors.pl

diff --git a/scripts/authors.pl b/scripts/authors.pl
deleted file mode 100755
index a3536ff110..0000000000
--- a/scripts/authors.pl
+++ /dev/null
@@ -1,44 +0,0 @@
-#!/usr/bin/perl
-
-#
-# This script can generate commit statistics from 'git log --shortstat -z tag1..tag2' output
-#
-
-use strict;
-use warnings;
-
-local $/ = "\x0";
-
-my %auth;
-our $commits;
-our $insertions;
-our $deletions;
-our $author;
-
-my $input;
-if (@ARGV > 0) {
-  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+) 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];
-}
-
-for $author (sort { $auth{$b}->[0] <=> $auth{$a}->[0] } keys %auth) {
-  ($commits, $insertions, $deletions) = @{$auth{$author}};
-  write;
-}
-
-format STDOUT =
-@#### @###### @###### @*
-$commits, $insertions, $deletions, $author
-.