From: Karl Williamson <khw@cpan.org>
Date: Wed, 7 Jan 2015 17:31:29 +0000 (-0700)
Subject: Fix broken ext/POSIX/t/wrappers.t on Windows
X-Git-Tag: v5.21.8~171
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/ed0cac5b003824d9b42c00752f4f894700e967d4

Fix broken ext/POSIX/t/wrappers.t on Windows

Windows doesn't have LC_MESSAGES, so skip the code if it isn't defined.
---

diff --git a/ext/POSIX/t/wrappers.t b/ext/POSIX/t/wrappers.t
index 01049a0..9fefb6a 100644
--- a/ext/POSIX/t/wrappers.t
+++ b/ext/POSIX/t/wrappers.t
@@ -22,7 +22,7 @@ my $temp_file = $temp_fh->filename;
 # 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