This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add delay to signal handling in t/op/magic.t. (Solaris with pthreads
authorMalcolm Beattie <mbeattie@sable.ox.ac.uk>
Fri, 14 Nov 1997 10:12:40 +0000 (10:12 +0000)
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>
Fri, 14 Nov 1997 10:12:40 +0000 (10:12 +0000)
doesn't run handlers for self-sent signals until kill has returned.)

p4raw-id: //depot/perl@250

t/op/magic.t

index bddcd27..e48b71c 100755 (executable)
@@ -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") {