diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-19 21:07:43 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-19 21:07:43 +0000 |
| commit | 755bf8135e72e27b0b1b9dc23cff856b5daa2d90 (patch) | |
| tree | e7230831398ccd31b44a38e9d20d1606121318cf /t | |
| parent | e6f1f7566601a16349ddff15c330d169381d778a (diff) | |
| download | perl-755bf8135e72e27b0b1b9dc23cff856b5daa2d90.tar.gz | |
Fix the new exit() tests, by Gisle Aas :
don't let the shell interfere with the process return value
p4raw-id: //depot/perl@24506
Diffstat (limited to 't')
| -rw-r--r-- | t/run/exit.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/t/run/exit.t b/t/run/exit.t index 9cc16adacd..1ceee16bbe 100644 --- a/t/run/exit.t +++ b/t/run/exit.t @@ -14,8 +14,7 @@ my $quote = $^O =~ /^(VMS|MSWin\d+)$/ ? q{"} : q{'}; # Run some code, return its wait status. sub run { my($code) = shift; - my $cmd = "$^X -e "; - return system($cmd.$quote.$code.$quote); + return system($^X, "-e", $code); } BEGIN { |