diff options
Diffstat (limited to 't/pragma/warning.t')
| -rwxr-xr-x | t/pragma/warning.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/pragma/warning.t b/t/pragma/warning.t index 3bb70e3ce8..fa0301ea6a 100755 --- a/t/pragma/warning.t +++ b/t/pragma/warning.t @@ -9,6 +9,7 @@ BEGIN { $| = 1; my $Is_VMS = $^O eq 'VMS'; +my $Is_MSWin32 = $^O eq 'MSWin32'; my $tmpfile = "tmp0000"; my $i = 0 ; 1 while -f ++$tmpfile; @@ -67,6 +68,8 @@ for (@prgs){ close TEST; my $results = $Is_VMS ? `MCR $^X $switch $tmpfile` : + $Is_MSWin32 ? + `.\\perl -I../lib $switch $tmpfile 2>&1` : `sh -c './perl $switch $tmpfile' 2>&1`; my $status = $?; $results =~ s/\n+$//; |