diff options
| author | Keith Thompson <Keith.S.Thompson@gmail.com> | 2011-09-05 16:37:46 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-09-07 22:15:35 -0700 |
| commit | cdad3b53476fc75fca269751d978ddef3278f18b (patch) | |
| tree | 8f98fb4e3cccff4a95ea65909eb8928e59dec453 /Porting/checkAUTHORS.pl | |
| parent | d6ee8587bdce64301e0540956a01c5b2c8b18f9b (diff) | |
| download | perl-cdad3b53476fc75fca269751d978ddef3278f18b.tar.gz | |
Convert some files from Latin-1 to UTF-8
Diffstat (limited to 'Porting/checkAUTHORS.pl')
| -rwxr-xr-x | Porting/checkAUTHORS.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl index d59e41aa3f..a5b770ccf0 100755 --- a/Porting/checkAUTHORS.pl +++ b/Porting/checkAUTHORS.pl @@ -1,6 +1,7 @@ #!/usr/bin/perl -w use strict; my ($committer, $patch, $author, $date); +use utf8; use Getopt::Long; use Text::Wrap; $Text::Wrap::columns = 80; @@ -222,7 +223,7 @@ sub read_authors_files { $name =~ s/\s*\z//; $raw{$email} = $name; $count{$email}++; - } elsif (/^([-A-Za-z0-9 .\'À-ÖØöø-ÿ]+)[\t\n]/) { + } elsif (/^([-A-Za-z0-9 .\'À-ÖØöø-ÿ]+)[\t\n]/) { # Name only $untraced{$1}++; |