This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip locale test on OpenBSD, MirBSD and Bitrig too
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 17 Feb 2014 21:03:54 +0000 (21:03 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 17 Feb 2014 21:27:42 +0000 (21:27 +0000)
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

lib/locale.t

index a330aa2..b195394 100644 (file)
@@ -1852,7 +1852,7 @@ foreach $test_num ($first_locales_test_number..$final_locales_test_number) {
 
 $test_num = $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;
     # perl #115808
     use warnings;
     my $warned = 0;