projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0b3b9d7
)
Dying is too strict here, better just skip.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Sat, 4 Nov 2000 22:32:47 +0000
(22:32 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Sat, 4 Nov 2000 22:32:47 +0000
(22:32 +0000)
p4raw-id: //depot/perl@7544
t/op/misc.t
patch
|
blob
|
history
diff --git
a/t/op/misc.t
b/t/op/misc.t
index
0f10424
..
aea14c8
100755
(executable)
--- a/
t/op/misc.t
+++ b/
t/op/misc.t
@@
-589,7
+589,7
@@
exit(0) unless @locales;
for (@locales) {
use POSIX qw(locale_h);
use locale;
- setlocale(LC_NUMERIC, $_) or
die "setlocale(LC_NUMERIC, $_): $!"
;
+ setlocale(LC_NUMERIC, $_) or
next
;
my $s = sprintf "%g %g", 3.1, 3.1;
next if $s eq '3.1 3.1' || $s =~ /^(3.+1) \1$/;
print "$_ $s\n";