This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove CR characters from raw input in op/magic.t on Windows
authorSteve Hay <steve.m.hay@googlemail.com>
Sat, 4 Aug 2012 13:01:27 +0000 (14:01 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Sat, 4 Aug 2012 13:01:27 +0000 (14:01 +0100)
The :raw input added by e2e1d5ce8b broke tests on Windows by introducing
unexpeted CR characters.

Two tests (154 and 157) currently still fail on Windows if the (DOS)
command prompt is using a different code page to perl's native (Windows)
character set.

t/op/magic.t

index 3a620aa..ebf99a7 100644 (file)
@@ -70,7 +70,8 @@ sub env_is {
     if ($Is_MSWin32) {
         # cmd.exe will echo 'variable=value' but 4nt will echo just the value
         # -- Nikola Knezevic
-        like `set $key`, qr/^(?:\Q$key\E=)?\Q$val\E$/, $desc;
+        (my $set = `set $key`) =~ s/\r\n$/\n/;
+        like $set, qr/^(?:\Q$key\E=)?\Q$val\E$/, $desc;
     } elsif ($Is_VMS) {
         is `write sys\$output f\$trnlnm("\Q$key\E")`, "$val\n", $desc;
     } else {