avoid decoding on input in the new tests added in 613c63b4
authorTony Cook <tony@develop-help.com>
Sat, 4 Aug 2012 03:53:38 +0000 (13:53 +1000)
committerTony Cook <tony@develop-help.com>
Sat, 4 Aug 2012 03:53:38 +0000 (13:53 +1000)
This fixes these tests when run in a unicode environment, eg:

  PERL_UNICODE= LC_ALL=en_AU.utf8 ./perl op/magic.t

This does fix tha code page related issue on Win32.

t/op/magic.t

index 03487b0..3a620aa 100644 (file)
@@ -65,6 +65,8 @@ $PERL = $ENV{PERL}
 
 sub env_is {
     my ($key, $val, $desc) = @_;
+
+    use open IN => ":raw";
     if ($Is_MSWin32) {
         # cmd.exe will echo 'variable=value' but 4nt will echo just the value
         # -- Nikola Knezevic