diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-14 10:12:40 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-14 10:12:40 +0000 |
| commit | b715f106331fad5cca1779055ebe7cca8c8f25a9 (patch) | |
| tree | e09e1244dde49fb88e7a986cf3e65b2c084414f0 /t | |
| parent | 458fb5819c1ac395635ee1129f0f694cb0128ffd (diff) | |
| download | perl-b715f106331fad5cca1779055ebe7cca8c8f25a9.tar.gz | |
Add delay to signal handling in t/op/magic.t. (Solaris with pthreads
doesn't run handlers for self-sent signals until kill has returned.)
p4raw-id: //depot/perl@250
Diffstat (limited to 't')
| -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") { |