cvs commit: ponie/perl/t/op magic.t

cvsuser     04/03/12 04:23:14

  Modified:    perl/t/op magic.t
  Log:
  use USR1 instead of INT since parrot seems to take over SIGINT - Change back when parrot is fixed
  
  Revision  Changes    Path
  1.2       +9 -9      ponie/perl/t/op/magic.t
  
  Index: magic.t
  ===================================================================
  RCS file: /cvs/public/ponie/perl/t/op/magic.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- magic.t	9 Sep 2003 11:59:52 -0000	1.1
  +++ magic.t	12 Mar 2004 12:23:14 -0000	1.2
  @@ -81,12 +81,12 @@
   
       $| = 1;		# command buffering
   
  -    $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 4\n";
  +    $SIG{"USR1"} = "ok3";     kill "USR1",$$; sleep 1;
  +    $SIG{"USR1"} = "IGNORE";  kill "USR1",$$; sleep 1; print "ok 4\n";
  +    $SIG{"USR1"} = "DEFAULT"; kill "USR1",$$; sleep 1; print "not ok 4\n";
   
       sub ok3 {
  -	if (($x = pop(@_)) eq "INT") {
  +	if (($x = pop(@_)) eq "USR1") {
   	    print "ok 3\n";
   	}
   	else {
  @@ -103,7 +103,7 @@
   
       { package X;
   	sub DESTROY {
  -	    kill "INT",$$;
  +	    kill "USR1",$$;
   	}
       }
       sub x {
  @@ -111,14 +111,14 @@
   	return sub { $x };
       }
       $| = 1;		# command buffering
  -    $SIG{"INT"} = "ok5";
  +    $SIG{"USR1"} = "ok5";
       {
  -	local $SIG{"INT"}=x();
  +	local $SIG{"USR1"}=x();
   	print ""; # Needed to expose failure in 5.8.0 (why?)
       }
       sleep 1;
  -    delete $SIG{"INT"};
  -    kill "INT",$$; sleep 1;
  +    delete $SIG{"USR1"};
  +    kill "USR1",$$; sleep 1;
       sub ok5 {
   	print "ok 5\n";
       }