Skip to content

Commit 2ff0487

Browse files
khwilliamsonLeont
authored andcommitted
version 07locale.t should use LC_NUMERIC, not ALL
This file is working on LC_NUMERIC only; no need to drag other categories in.
1 parent 901d2d9 commit 2ff0487

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

t/07locale.t

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -48,7 +48,7 @@ SKIP: {
4848

4949
while (<DATA>) {
5050
chomp;
51-
$loc = setlocale( LC_ALL, $_);
51+
$loc = setlocale( LC_NUMERIC, $_);
5252
last if $loc && radix() eq ',';
5353
}
5454
skip 'Cannot test locale handling without a comma locale', 6
@@ -68,7 +68,7 @@ SKIP: {
6868
$ver = 'version'->new($]);
6969
is "$ver", "$]", 'Use PV for dualvars';
7070
}
71-
setlocale( LC_ALL, $orig_loc); # reset this before possible skip
71+
setlocale( LC_NUMERIC, $orig_loc); # reset this before possible skip
7272
skip 'Cannot test RT#46921 with Perl < 5.008', 1
7373
if ($] < 5.008);
7474
my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
@@ -79,10 +79,10 @@ use locale;
7979
use POSIX qw(locale_h);
8080
\$^W = 1;
8181
use version;
82-
setlocale (LC_ALL, '$loc');
82+
setlocale (LC_NUMERIC, '$loc');
8383
use version ;
8484
eval "use Socket 1.7";
85-
setlocale( LC_ALL, '$orig_loc');
85+
setlocale( LC_NUMERIC, '$orig_loc');
8686
1;
8787
EOF
8888
close $fh;

0 commit comments

Comments
 (0)