This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
56b98d0
)
Make t/porting/authors.t pass under LC_ALL=en_GB.UTF-8 PERL_UNICODE=""
author
Nicholas Clark
<nick@ccl4.org>
Thu, 9 Sep 2010 12:02:27 +0000
(13:02 +0100)
committer
Nicholas Clark
<nick@ccl4.org>
Thu, 9 Sep 2010 12:02:27 +0000
(13:02 +0100)
Porting/checkAUTHORS.pl
patch
|
blob
|
blame
|
history
diff --git
a/Porting/checkAUTHORS.pl
b/Porting/checkAUTHORS.pl
index
e8700a4
..
37f1726
100755
(executable)
--- a/
Porting/checkAUTHORS.pl
+++ b/
Porting/checkAUTHORS.pl
@@
-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 /^-- /;