Re: cvs commit: parrot/imcc/t/syn file.t

[Jens Rieks]

Am Donnerstag, 12. Februar 2004 08:18 schrieb Leopold Toetsch:
[snip]
>  eval { local $ENV{LANG} = 'en'; };
[snip]

The test has to be located inside the eval, this construct has no effect.
Might it be better to set LANG to 'C', instead of 'en'?
'en' in not installed on my system, but 'C' is in english. Is 'C' always the 
english local?
A small patch is attached.

jens

Index: imcc/t/syn/file.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/syn/file.t,v
retrieving revision 1.21
diff -u -w -r1.21 file.t
--- imcc/t/syn/file.t	12 Feb 2004 07:18:13 -0000	1.21
+++ imcc/t/syn/file.t	12 Feb 2004 11:12:30 -0000
@@ -360,8 +360,9 @@
   # Perl5  has an English locale when started.
   my $ENOENT_msg;
   {
-    eval { local $ENV{LANG} = 'en'; };
+    eval { local $ENV{LANG} = 'C';
     $ENOENT_msg = qx{$PERL5 -e 'open FOO, "<non_existent.file"; print \$!'};
+    };
   }
   use Test::More;
   is( qx{$PARROT temp.imc 2>&1}, <<OUT, "including a non-existent file");