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 $SIG{"INT"} = "fred"; kill "INT",$$;
  20 EXPECT
  21 SIGINT handler "fred" not defined.