From e0d72a37764501c52aeed41ca710cf763afa8755 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 29 Dec 2001 15:31:20 +0000 Subject: [PATCH] op/exec Win32 patch from Schwern via Abe Timmerman. p4raw-id: //depot/perl@13929 --- t/op/exec.t | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/t/op/exec.t b/t/op/exec.t index 271570f..bbab0fb 100755 --- a/t/op/exec.t +++ b/t/op/exec.t @@ -14,7 +14,8 @@ $| = 1; # flush stdout $ENV{LC_ALL} = 'C'; # Forge English error messages. $ENV{LANGUAGE} = 'C'; # Ditto in GNU. -my $Is_VMS = $^O eq 'VMS'; +my $Is_VMS = $^O eq 'VMS'; +my $Is_Win32 = $^O eq 'MSWin32'; plan(tests => 20); @@ -35,9 +36,9 @@ $exit = system qq{$Perl -le "print q{ok $tnum - split & direct system(EXPR)"}}; next_test(); is( $exit, 0, ' exited 0' ); -# On VMS you need the quotes around the program or it won't work. +# On VMS and Win32 you need the quotes around the program or it won't work. # On Unix its the opposite. -my $quote = $Is_VMS ? '"' : ''; +my $quote = $Is_VMS || $Is_Win32 ? '"' : ''; $tnum = curr_test(); $exit = system $Perl, '-le', "${quote}print q{ok $tnum - system(PROG, LIST)}${quote}"; @@ -102,8 +103,9 @@ END TODO: { my $tnum = curr_test(); if( $^O =~ /Win32/ ) { - print "not ok $tnum - exec failure doesn't terminate process # TODO Win32 exec failure waits for user input\n"; - next_test; + print "not ok $tnum - exec failure doesn't terminate process " . + "# TODO Win32 exec failure waits for user input\n"; + next_test(); last TODO; } -- 1.8.3.1