diff options
| author | Tony Cook <tony@develop-help.com> | 2013-01-22 23:27:13 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-01-22 23:27:13 +1100 |
| commit | 2e3d3246c6eeb577b42aeb7e6f4285f2421d8d29 (patch) | |
| tree | 789ffdc107a311254fc8569cfea8d88b3770e057 /t/run | |
| parent | 72e37659c726e50aea5225fde1a74d69e59d3594 (diff) | |
| download | perl-2e3d3246c6eeb577b42aeb7e6f4285f2421d8d29.tar.gz | |
syntax check a directory: set the test process locale too
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. |