[shell changes from patch from perl5.003_12 to perl5.003_13]

[p5sagit/p5-mst-13.2.git] / t / lib / posix.t

diff --git a/t/lib/posix.t b/t/lib/posix.t
index 3adc602..6ae88c0 100755 (executable)
--- a/t/lib/posix.t
+++ b/t/lib/posix.t
@@ -61,8 +61,10 @@ print getcwd() =~ m#/t$# ? "ok 13\n" : "not ok 13\n";
 # Check string conversion functions.
 
 if ($Config{d_strtod}) {
+    $lc = &POSIX::setlocale(&POSIX::LC_NUMERIC, 'C') if $Config{d_setlocale};
     ($n, $x) = &POSIX::strtod('3.14159_OR_SO');
     print (($n == 3.14159) && ($x == 6) ? "ok 14\n" : "not ok 14\n");
+    &POSIX::setlocale(&POSIX::LC_NUMERIC, $lc) if $Config{d_setlocale};
 } else { print "# strtod not present\n", "ok 14\n"; }
 
 if ($Config{d_strtol}) {