mirror of
git://git.sv.gnu.org/sed
synced 2025-04-18 02:37:37 +03:00
32782c26e7
* THANKS.in: Renamed from THANKS, adjusted formatting and added header. Also remove from this list of names those that are now generated automatically. * THANKS: Removed, now that it's generated. * thanks-gen: New file. * Makefile.am (EXTRA_DIST): Add thanks-gen (THANKS): New rule. * .mailmap: New file.
17 lines
441 B
Perl
Executable File
17 lines
441 B
Perl
Executable File
#!/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 (%seen, %name) }
|
|
|
|
chomp;
|
|
my ($name, $email) = split '\0', decode ('UTF-8', $_);
|
|
|
|
$seen{$name}++
|
|
and warn "$0: THANKS.in: duplicate name: $name\n";
|
|
|
|
print encode ('UTF-8', sprintf ('%-36s', $name)), $email
|
|
unless $seen{"$name\0$email"}++;
|