This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix broken ext/POSIX/t/wrappers.t on Windows
authorKarl Williamson <khw@cpan.org>
Wed, 7 Jan 2015 17:31:29 +0000 (10:31 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 7 Jan 2015 17:39:54 +0000 (10:39 -0700)
Windows doesn't have LC_MESSAGES, so skip the code if it isn't defined.

ext/POSIX/t/wrappers.t

index 01049a0..9fefb6a 100644 (file)
@@ -22,7 +22,7 @@ my $temp_file = $temp_fh->filename;
 # exit, fork, waitpid, sleep in waitpid.t
 # errno in posix.t
 
 # exit, fork, waitpid, sleep in waitpid.t
 # errno in posix.t
 
-if ($Config{d_setlocale}) {
+if ($Config{d_setlocale} && defined &POSIX::LC_MESSAGES) {
     my $non_english_locale;
     local $! = 1;
     my $english_message = "$!"; # Should be C locale since not in scope of
     my $non_english_locale;
     local $! = 1;
     my $english_message = "$!"; # Should be C locale since not in scope of