From: Karl Williamson <public@khwilliamson.com>
Date: Tue, 21 Jan 2014 23:01:48 +0000 (-0700)
Subject: t/loc_tools.pl: Add some locale finding for Win32
X-Git-Tag: upstream/5.20.0~657
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d646bffec1670f95f61ba05ca3da10a8deb21664;p=platform%2Fupstream%2Fperl.git

t/loc_tools.pl: Add some locale finding for Win32

This is based on the documentation in
http://msdn.microsoft.com/en-us/library/hzz3tw78.aspx
and linked-to pages.

We try out new locale combinations to see if they are found.
---

diff --git a/t/loc_tools.pl b/t/loc_tools.pl
index 98af329..45377a0 100644
--- a/t/loc_tools.pl
+++ b/t/loc_tools.pl
@@ -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;
 }