From: Jarkko Hietaniemi Date: Sat, 4 Nov 2000 22:32:47 +0000 (+0000) Subject: Dying is too strict here, better just skip. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=88e7acd2863313b860674bf9fe83289b008d2426;p=p5sagit%2Fp5-mst-13.2.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";