summaryrefslogtreecommitdiff
path: root/build-aux/thanks-gen
diff options
context:
space:
mode:
Diffstat (limited to 'build-aux/thanks-gen')
-rwxr-xr-xbuild-aux/thanks-gen20
1 files changed, 0 insertions, 20 deletions
diff --git a/build-aux/thanks-gen b/build-aux/thanks-gen
deleted file mode 100755
index 92090ced..00000000
--- a/build-aux/thanks-gen
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/perl -nl
-# Use Perl's multi-byte alignment code, via sprintf, while
-# performing a rudimentary check for duplicate names and
-# removing duplicate name,email pairs.
-use Encode;
-
-BEGIN { my (%elide, %seen, %name) }
-
-chomp;
-my ($name, $email) = split '\0', decode ('UTF-8', $_);
-
-if ($elide{"!$name"}) {
-; # ignore this author
-} elsif (index ($name, '!') == 0) {
- $elide{$name}++;
-} elsif ($seen{$name}++) {
- warn "$0: NO-THANKS: duplicate name: $name\n";
-} else {
- print encode ('UTF-8', sprintf ('%-36s', $name)), $email;
-}