diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-14 22:04:58 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-14 22:04:58 +0000 |
| commit | 2d63e3e140948d3d027cbbf76f121ae5d9c2fa6f (patch) | |
| tree | 21068467e062aa49fa127017a1d135666bb91b4c /t/op | |
| parent | dc0502853eaa4689351eeccc4becf89ec85060e0 (diff) | |
| parent | 3d57aefb538705242f5ab4c3d9d854139b302aba (diff) | |
| download | perl-2d63e3e140948d3d027cbbf76f121ae5d9c2fa6f.tar.gz | |
Integrate mainline changes into win32 branch. Now would be a good time
to reverse integrate the win32 branch into mainline.
p4raw-id: //depot/win32/perl@253
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/magic.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index bddcd27679..e48b71cd68 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -46,9 +46,9 @@ else { $| = 1; # command buffering - $SIG{"INT"} = "ok3"; kill "INT",$$; - $SIG{"INT"} = "IGNORE"; kill "INT",$$; print "ok 4\n"; - $SIG{"INT"} = "DEFAULT"; kill "INT",$$; print "not ok\n"; + $SIG{"INT"} = "ok3"; kill "INT",$$; sleep 1; + $SIG{"INT"} = "IGNORE"; kill "INT",$$; sleep 1; print "ok 4\n"; + $SIG{"INT"} = "DEFAULT"; kill "INT",$$; sleep 1; print "not ok\n"; sub ok3 { if (($x = pop(@_)) eq "INT") { |