Dying is too strict here, better just skip.
Jarkko Hietaniemi [Sat, 4 Nov 2000 22:32:47 +0000 (22:32 +0000)]
p4raw-id: //depot/perl@7544

t/op/misc.t

index 0f10424..aea14c8 100755 (executable)
@@ -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";