From 88e7acd2863313b860674bf9fe83289b008d2426 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 4 Nov 2000 22:32:47 +0000
Subject: [PATCH] Dying is too strict here, better just skip.

p4raw-id: //depot/perl@7544
---
 t/op/misc.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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";
-- 
2.7.4