In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2fde845cf78166ec653866936e509d37d09fb0c2?hp=a8c6ff7b8e8c6037333c21f9b3f6b38b9278df4f>
- Log ----------------------------------------------------------------- commit 2fde845cf78166ec653866936e509d37d09fb0c2 Author: Ricardo Signes <[email protected]> Date: Tue Jan 15 18:59:20 2013 -0500 avoid having to worry whether the test runs in a locale This is a time-honored tradition from such places as t/op. Tony Cook alerted me to failures caused by this test on machines smoking in non-English locales. ----------------------------------------------------------------------- Summary of changes: t/run/switches.t | 4 ++++ 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/t/run/switches.t b/t/run/switches.t index 43d01ca..c119bee 100644 --- a/t/run/switches.t +++ b/t/run/switches.t @@ -114,6 +114,10 @@ SWTEST # Win32 won't let us open the directory, so we never get to die with # EISDIR, which happens after open. my $error = $^O eq 'MSWin32' ? 'Permission denied' : 'Is a directory'; + + $ENV{'LC_ALL'} = 'C'; # Keep the test simple: expect English + $ENV{LANGUAGE} = 'C'; + like( runperl( switches => [ '-c' ], args => [ $tempdir ], stderr => 1), qr/Can't open perl script.*$tempdir.*$error/s, -- Perl5 Master Repository
