diff options
author | Eric Blake <eblake@redhat.com> | 2021-05-07 14:47:04 -0500 |
---|---|---|
committer | Eric Blake <eblake@redhat.com> | 2021-05-07 14:47:04 -0500 |
commit | 0b98fb45910bba58a0a64192443b1d71fbf19ecf (patch) | |
tree | 7c751929d43352234572cfe4d770c944b7c9b2c8 /build-aux/thanks-gen | |
parent | d69fa5284851b2b7aac25ffac638b6b379994db5 (diff) | |
download | m4-0b98fb45910bba58a0a64192443b1d71fbf19ecf.tar.gz |
maint: Redirect developers to active branch
_This_ branch does not contain actively-developed code. More likely,
you want to check out branch-1.4 (latest stable), branch-1.6 (some
speedups over 1.4, but not yet released), or branch-2.0 (many more
experimental changes, and even further from release).
* README: Document the status of this git repository.
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; -} |