t/lib/warnings/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 'NetWare' || $^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 'NetWare' || $^O eq 'VMS') {
  39     print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
  40 }
  41 $|=1;
  42 $SIG{"INT"} = "fred"; kill "INT",$$;
  43 EXPECT
  44
  45 ########
  46 # mg.c
  47 use warnings 'uninitialized';
  48 'foo' =~ /(foo)/;
  49 oct $3;
  50 EXPECT
  51 Use of uninitialized value $3 in oct at - line 4.
  52 ########
  53 # mg.c
  54 use warnings 'uninitialized';
  55 oct $3;
  56 EXPECT
  57 Use of uninitialized value $3 in oct at - line 3.
  58 ########
  59 # mg.c
  60 use warnings 'uninitialized';
  61 $ENV{FOO} = undef; # should not warn
  62 EXPECT