From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Fri, 14 Nov 1997 10:12:40 +0000 (+0000)
Subject: Add delay to signal handling in t/op/magic.t. (Solaris with pthreads
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b715f106331fad5cca1779055ebe7cca8c8f25a9;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/t/op/magic.t b/t/op/magic.t
index bddcd27..e48b71c 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") {