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   Mandatory Warnings TODO
  10   ------------------
  11   Can't break at that line      [magic_setdbline]
  12
  13 __END__
  14 # mg.c
  15 use warnings 'signal' ;
  16 $SIG{FRED} = sub {};
  17 EXPECT
  18 No such signal: SIGFRED at - line 3.
  19 ########
  20 # mg.c
  21 no warnings 'signal' ;
  22 $SIG{FRED} = sub {};
  23 EXPECT
  24
  25 ########
  26 # mg.c
  27 use warnings 'signal' ;
  28 if ($^O eq 'MSWin32' || $^O eq 'VMS') {
  29     print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
  30 }
  31 $|=1;
  32 $SIG{"INT"} = "fred"; kill "INT",$$;
  33 EXPECT
  34 SIGINT handler "fred" not defined.
  35 ########
  36 # mg.c
  37 no warnings 'signal' ;
  38 if ($^O eq 'MSWin32' || $^O eq 'VMS') {
  39     print "SKIPPED\n# win32, can't kill() to raise()\n"; exit;
  40 }
  41 $|=1;
  42 $SIG{"INT"} = "fred"; kill "INT",$$;
  43 EXPECT
  44