cvs commit: ponie/perl/t/lib/warnings mg

cvsuser     04/03/12 05:45:26

  Modified:    perl/t/lib/warnings mg
  Log:
  another avoidence of SIGINT
  
  Revision  Changes    Path
  1.2       +2 -2      ponie/perl/t/lib/warnings/mg
  
  Index: mg
  ===================================================================
  RCS file: /cvs/public/ponie/perl/t/lib/warnings/mg,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- mg	9 Sep 2003 11:59:51 -0000	1.1
  +++ mg	12 Mar 2004 13:45:26 -0000	1.2
  @@ -29,9 +29,9 @@
       print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
   }
   $|=1;
  -$SIG{"INT"} = "fred"; kill "INT",$$;
  +$SIG{"USR1"} = "fred"; kill "USR1",$$;
   EXPECT
  -SIGINT handler "fred" not defined.
  +SIGUSR1 handler "fred" not defined.
   ########
   # mg.c
   no warnings 'signal' ;