From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Mon, 17 Feb 2014 21:03:54 +0000 (+0000)
Subject: Skip locale test on OpenBSD, MirBSD and Bitrig too
X-Git-Tag: v5.19.9~49
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/4bc677234a7eb92539c11decafe80da27aee323a

Skip locale test on OpenBSD, MirBSD and Bitrig too

From the original ticket #115808 the following should produce
"Use of uninitialized value in print at -e line 1."

$ perl -wle 'use POSIX; print length setlocale POSIX::LC_ALL, "mtfnpy"'
16

So skip this test on OpenBSD, MirBSD and Bitrig
---

diff --git a/lib/locale.t b/lib/locale.t
index a330aa2..b195394 100644
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -1852,7 +1852,7 @@ foreach $test_num ($first_locales_test_number..$final_locales_test_number) {
 
 $test_num = $final_locales_test_number;
 
-unless ( $^O eq 'dragonfly' ) {
+unless ( $^O =~ m!^(dragonfly|openbsd|bitrig|mirbsd)$! ) {
     # perl #115808
     use warnings;
     my $warned = 0;