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 __END__
  10 # mg.c
  11 use warnings 'signal' ;
  12 $SIG{FRED} = sub {};
  13 EXPECT
  14 No such signal: SIGFRED at - line 3.
  15 ########
  16 # mg.c
  17 no warnings 'signal' ;
  18 $SIG{FRED} = sub {};
  19 EXPECT
  20
  21 ########
  22 # mg.c
  23 use warnings 'signal' ;
  24 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
  25     print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
  26 }
  27 $|=1;
  28 $SIG{"INT"} = "fred"; kill "INT",$$;
  29 EXPECT
  30 SIGINT handler "fred" not defined.
  31 ########
  32 # mg.c
  33 no warnings 'signal' ;
  34 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
  35     print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
  36 }
  37 $|=1;
  38 $SIG{"INT"} = "fred"; kill "INT",$$;
  39 EXPECT
  40
  41 ########
  42 # mg.c
  43 use warnings 'signal' ;
  44 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
  45     print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
  46 }
  47 $|=1;
  48 $SIG{__WARN__} = sub { warn shift =~ s/\0/\\0/rugs };
  49 $SIG{"INT"} = "fr\0d"; kill "INT",$$;
  50 EXPECT
  51 SIGINT handler "fr\0d" not defined.
  52 ########
  53 # mg.c
  54 use warnings 'signal' ;
  55 use open ":std", ":utf8";
  56 use utf8;
  57 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
  58     print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
  59 }
  60 $|=1;
  61 $SIG{"INT"} = "프레드"; kill "INT",$$;
  62 EXPECT
  63 SIGINT handler "프레드" not defined.
  64 ########
  65 # mg.c
  66 use warnings 'uninitialized';
  67 'foo' =~ /(foo)/;
  68 oct $3;
  69 EXPECT
  70 Use of uninitialized value $3 in oct at - line 4.
  71 ########
  72 # mg.c
  73 use warnings 'uninitialized';
  74 oct $3;
  75 EXPECT
  76 Use of uninitialized value $3 in oct at - line 3.
  77 ########
  78 # mg.c
  79 use warnings 'uninitialized';
  80 $ENV{FOO} = undef; # should not warn
  81 EXPECT