From 3a2d17640c711a74da5a32d6750db585e6944152 Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Thu, 28 Jun 2007 10:46:39 +0000 Subject: [PATCH] Re-enable the setlocale() tests for Windows XP onwards since they seem to work OK. Not sure about older flavours of Windows, so leave them alone. p4raw-id: //depot/perl@31491 --- lib/locale.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lib/locale.t b/lib/locale.t index c3a9d94..783d0bd 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -43,7 +43,12 @@ eval { # Visual C's CRT goes silly on strings of the form "en_US.ISO8859-1" # and mingw32 uses said silly CRT -$have_setlocale = 0 if (($^O eq 'MSWin32' || $^O eq 'NetWare') && $Config{cc} =~ /^(cl|gcc)/i); +# This doesn't seem to be an issue any more, at least on Windows XP, +# so re-enable the tests for Windows XP onwards. +my $winxp = ($^O eq 'MSWin32' && defined &Win32::GetOSVersion && + join('.', (Win32::GetOSVersion())[1..2]) >= 5.1); +$have_setlocale = 0 if ((($^O eq 'MSWin32' && !$winxp) || $^O eq 'NetWare') && + $Config{cc} =~ /^(cl|gcc)/i); # UWIN seems to loop after test 98, just skip for now $have_setlocale = 0 if ($^O =~ /^uwin/); -- 2.7.4