From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 19 May 2005 21:07:43 +0000 (+0000)
Subject: Fix the new exit() tests, by Gisle Aas :
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=755bf8135e72e27b0b1b9dc23cff856b5daa2d90;p=p5sagit%2Fp5-mst-13.2.git

Fix the new exit() tests, by Gisle Aas :
don't let the shell interfere with the process return value

p4raw-id: //depot/perl@24506
---

diff --git a/t/run/exit.t b/t/run/exit.t
index 9cc16ad..1ceee16 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 {