This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make t/porting/authors.t pass under LC_ALL=en_GB.UTF-8 PERL_UNICODE=""
authorNicholas Clark <nick@ccl4.org>
Thu, 9 Sep 2010 12:02:27 +0000 (13:02 +0100)
committerNicholas Clark <nick@ccl4.org>
Thu, 9 Sep 2010 12:02:27 +0000 (13:02 +0100)
Porting/checkAUTHORS.pl

index e8700a4..37f1726 100755 (executable)
@@ -197,6 +197,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)';
         while (<FH>) {
             next if /^\#/;
             next if /^-- /;