syntax check a directory: set the test process locale too
authorTony Cook <tony@develop-help.com>
Tue, 22 Jan 2013 12:27:13 +0000 (23:27 +1100)
committerTony Cook <tony@develop-help.com>
Tue, 22 Jan 2013 12:27:13 +0000 (23:27 +1100)
t/run/switches.t

index 1324f5a..52c0d95 100644 (file)
@@ -15,6 +15,7 @@ plan(tests => 115);
 
 use Config;
 use Errno qw(EACCES EISDIR);
+use POSIX qw(setlocale LC_ALL);
 
 # due to a bug in VMS's piping which makes it impossible for runperl()
 # to emulate echo -n (ie. stdin always winds up with a newline), these 
@@ -114,6 +115,7 @@ SWTEST
 
     local $ENV{'LC_ALL'} = 'C'; # Keep the test simple: expect English
     local $ENV{LANGUAGE} = 'C';
+    setlocale(LC_ALL, "C");
 
     # Win32 won't let us open the directory, so we never get to die with
     # EISDIR, which happens after open.