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 (file)
--- 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 {