This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/loc_tools.pl: Add some locale finding for Win32
[perl5.git] / t / loc_tools.pl
index 98af329..45377a0 100644 (file)
@@ -40,12 +40,16 @@ sub _decode_encodings {
            }
            push @enc, $_;
             push @enc, "$_.UTF-8";
+            push @enc, "$_.65001"; # Windows UTF-8
+            push @enc, "$_.ACP"; # Windows ANSI code page
+            push @enc, "$_.OCP"; # Windows OEM code page
        }
     }
     if ($^O eq 'os390') {
        push @enc, qw(IBM-037 IBM-819 IBM-1047);
     }
     push @enc, "UTF-8";
+    push @enc, "65001"; # Windows UTF-8
 
     return @enc;
 }