t/pragma/warn/mg

   1   mg.c  AOK
   2
   3   No such signal: SIG%s
   4     $SIG{FRED} = sub {}
   5
   6   SIG%s handler \"%s\" not defined.
   7     $SIG{"INT"} = "ok3"; kill "INT",$$;
   8
   9
  10 __END__
  11 # mg.c
  12 use warning 'signal' ;
  13 $SIG{FRED} = sub {};
  14 EXPECT
  15 No such signal: SIGFRED at - line 3.
  16 ########
  17 # mg.c
  18 use warning 'signal' ;
  19 if ($^O eq 'MSWin32' || $^O eq 'VMS') {
  20     print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
  21 }
  22 $|=1;
  23 $SIG{"INT"} = "fred"; kill "INT",$$;
  24 EXPECT
  25 SIGINT handler "fred" not defined.