We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 901d2d9 commit 2ff0487Copy full SHA for 2ff0487
t/07locale.t
@@ -48,7 +48,7 @@ SKIP: {
48
49
while (<DATA>) {
50
chomp;
51
- $loc = setlocale( LC_ALL, $_);
+ $loc = setlocale( LC_NUMERIC, $_);
52
last if $loc && radix() eq ',';
53
}
54
skip 'Cannot test locale handling without a comma locale', 6
@@ -68,7 +68,7 @@ SKIP: {
68
$ver = 'version'->new($]);
69
is "$ver", "$]", 'Use PV for dualvars';
70
71
- setlocale( LC_ALL, $orig_loc); # reset this before possible skip
+ setlocale( LC_NUMERIC, $orig_loc); # reset this before possible skip
72
skip 'Cannot test RT#46921 with Perl < 5.008', 1
73
if ($] < 5.008);
74
my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
@@ -79,10 +79,10 @@ use locale;
79
use POSIX qw(locale_h);
80
\$^W = 1;
81
use version;
82
-setlocale (LC_ALL, '$loc');
+setlocale (LC_NUMERIC, '$loc');
83
use version ;
84
eval "use Socket 1.7";
85
-setlocale( LC_ALL, '$orig_loc');
+setlocale( LC_NUMERIC, '$orig_loc');
86
1;
87
EOF
88
close $fh;
0 commit comments