diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-15 02:41:58 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-15 02:41:58 +0000 |
| commit | 55d729e4e15089064cd25ed6dce2c105389f3837 (patch) | |
| tree | 051c5ca4ce1910143237cc92caf129a28ce98436 /t/op/die_exit.t | |
| parent | 6ff81951f79dec32e15a779d288c1047f0e4fefb (diff) | |
| download | perl-55d729e4e15089064cd25ed6dce2c105389f3837.tar.gz | |
[win32] merge changes#922,944,949,965,970 from maintbranch
p4raw-link: @970 on //depot/maint-5.004/perl: 5362f8886d6c3fb908c863d910b1a158479419e2
p4raw-link: @965 on //depot/maint-5.004/perl: 8472ac73d6d802946d766b5459d2d9c334889a3f
p4raw-link: @949 on //depot/maint-5.004/perl: 4b161ae29769b4a3eb304314bbbfe5969417c8ec
p4raw-link: @944 on //depot/maint-5.004/perl: fa366f5fbba3f21113f9677105663454a3e0b678
p4raw-link: @922 on //depot/maint-5.004/perl: 68daf0ababdc0e913335a90c4361b792b2715301
p4raw-id: //depot/win32/perl@978
Diffstat (limited to 't/op/die_exit.t')
| -rwxr-xr-x | t/op/die_exit.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/op/die_exit.t b/t/op/die_exit.t index b01dd35a97..b5760d6fa0 100755 --- a/t/op/die_exit.t +++ b/t/op/die_exit.t @@ -39,7 +39,9 @@ print "1..$max\n"; foreach my $test (1 .. $max) { my($bang, $query) = @{$tests{$test}}; my $exit = - system qq($perl -e '\$! = $bang; \$? = $query; die;' 2> /dev/null); + ($^O eq 'MSWin32' + ? system qq($perl -e "\$! = $bang; \$? = $query; die;" 2> nul) + : system qq($perl -e '\$! = $bang; \$? = $query; die;' 2> /dev/null)); printf "# 0x%04x 0x%04x 0x%04x\nnot ", $exit, $bang, $query unless $exit == (($bang || ($query >> 8) || 255) << 8); |