This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
32a424d
)
run/exit.t busted on windows
author
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 9 Jul 2001 04:36:30 +0000
(
04:36
+0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 9 Jul 2001 04:36:30 +0000
(
04:36
+0000)
p4raw-id: //depot/perl@11231
t/run/exit.t
patch
|
blob
|
blame
|
history
diff --git
a/t/run/exit.t
b/t/run/exit.t
index
828b832
..
20c2c49
100644
(file)
--- a/
t/run/exit.t
+++ b/
t/run/exit.t
@@
-8,8
+8,8
@@
BEGIN {
@INC = '../lib';
}
@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 {
# Run some code, return its wait status.
sub run {