In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2e3d3246c6eeb577b42aeb7e6f4285f2421d8d29?hp=72e37659c726e50aea5225fde1a74d69e59d3594>
- Log ----------------------------------------------------------------- commit 2e3d3246c6eeb577b42aeb7e6f4285f2421d8d29 Author: Tony Cook <[email protected]> Date: Tue Jan 22 23:27:13 2013 +1100 syntax check a directory: set the test process locale too ----------------------------------------------------------------------- Summary of changes: 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 1324f5a..52c0d95 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. -- Perl5 Master Repository
