Merge pull request #525 from mohawk2/stable-testspacefix

t/exit.t quote-protect $Perl in case of spaces
Test-More · Dec 28, 2014 · a10f252 · a10f252
2 parents 0b9f927 + e2e1928
commit a10f252
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/t/exit.t b/t/exit.t
@@ -30,9 +30,10 @@ if( $^O eq 'VMS' ) {
     # Quiet noisy 'SYS$ABORT'
     $Perl .= q{ -"I../lib"} if $ENV{PERL_CORE};
     $Perl .= q{ -"Mvmsish=hushed"};
+} else {
+    $Perl = qq("$Perl"); # protect from shell if spaces
 }
 
-
 eval { require POSIX; &POSIX::WEXITSTATUS(0) };
 if( $@ ) {
     *exitstatus = sub { $_[0] >> 8 };