diff options
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/switches.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/run/switches.t b/t/run/switches.t index 1324f5a1a8..52c0d95e3e 100644 --- a/t/run/switches.t +++ b/t/run/switches.t @@ -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. |