This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/loc_tools.pl: try code page 1252 locales
authorKarl Williamson <khw@cpan.org>
Sat, 15 Nov 2014 16:51:28 +0000 (09:51 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 15 Nov 2014 17:06:33 +0000 (10:06 -0700)
This makes sure this common locale on Windows doesn't get overlooked.

t/loc_tools.pl

index 4bd2364..b4845b8 100644 (file)
@@ -58,6 +58,7 @@ sub _decode_encodings {
             push @enc, "$_.65001"; # Windows UTF-8
             push @enc, "$_.ACP"; # Windows ANSI code page
             push @enc, "$_.OCP"; # Windows OEM code page
+            push @enc, "$_.1252"; # Windows
        }
     }
     if ($^O eq 'os390') {