diff options
Diffstat (limited to 'build-aux/thanks-gen')
-rwxr-xr-x | build-aux/thanks-gen | 20 |
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; -} |