This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
get authors.t passing again
authorFather Chrysostomos <sprout@cpan.org>
Sun, 14 Aug 2011 21:10:04 +0000 (14:10 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 14 Aug 2011 21:10:04 +0000 (14:10 -0700)
Ahem. Once you get things passing, you actually have to commit before
pushing. :-(

Porting/checkAUTHORS.pl

index 1dfa362..d59e41a 100755 (executable)
@@ -212,7 +212,7 @@ sub read_authors_files {
     my (%count, %raw);
     foreach my $filename (@authors) {
         open FH, "<$filename" or die "Can't open $filename: $!";
-        binmode FH, ':encoding(ISO-8859-1)';
+        binmode FH, ':encoding(UTF-8)';
         while (<FH>) {
             next if /^\#/;
             next if /^-- /;
@@ -649,6 +649,7 @@ kane\100dwim.org                        kane\100xs4all.net
 +                                       kane\100xs4all.nl
 +                                       jos\100dwim.org
 +                                       jib\100ripe.net
+keith.s.thompson\100gmail.com           kst\100mib.org
 ken\100mathforum.org                    kenahoo\100gmail.com
 +                                       ken.williams\100thomsonreuters.com
 kroepke\100dolphin-services.de          kay\100dolphin-services.de