Change 11231 by gsar@moonru on 2001/07/09 04:36:30
run/exit.t busted on windows
Affected files ...
... //depot/perl/t/run/exit.t#2 edit
Differences ...
==== //depot/perl/t/run/exit.t#2 (text) ====
Index: perl/t/run/exit.t
--- perl/t/run/exit.t.~1~ Sun Jul 8 22:45:05 2001
+++ perl/t/run/exit.t Sun Jul 8 22:45:05 2001
@@ -8,8 +8,8 @@
@INC = '../lib';
}
-# VMS needs -e "...", most everything else works better with '
-my $quote = $^O eq 'VMS' ? q{"} : q{'};
+# VMS and Windows need -e "...", most everything else works better with '
+my $quote = $^O =~ /^(VMS|MSWin\d+)$/ ? q{"} : q{'};
# Run some code, return its wait status.
sub run {
End of Patch.
