From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 4 Nov 2000 22:32:47 +0000 (+0000)
Subject: Dying is too strict here, better just skip.
X-Git-Tag: accepted/trunk/20130322.191538~33759
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=88e7acd2863313b860674bf9fe83289b008d2426;p=platform%2Fupstream%2Fperl.git

Dying is too strict here, better just skip.

p4raw-id: //depot/perl@7544
---

diff --git a/t/op/misc.t b/t/op/misc.t
index 0f10424..aea14c8 100755
--- 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";