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 11use warnings 'signal' ; 12$SIG{FRED} = sub {}; 13EXPECT 14No such signal: SIGFRED at - line 3. 15######## 16# mg.c 17no warnings 'signal' ; 18$SIG{FRED} = sub {}; 19EXPECT 20 21######## 22# mg.c 23use warnings 'signal' ; 24if ($^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",$$; 29EXPECT 30SIGINT handler "fred" not defined. 31######## 32# mg.c 33no warnings 'signal' ; 34if ($^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",$$; 39EXPECT 40 41######## 42# mg.c 43use warnings 'signal' ; 44if ($^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",$$; 50EXPECT 51SIGINT handler "fr\0d" not defined. 52######## 53# mg.c 54use warnings 'signal' ; 55use open ":std", ":utf8"; 56use utf8; 57if ($^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",$$; 62EXPECT 63SIGINT handler "프레드" not defined. 64######## 65# mg.c 66use warnings 'uninitialized'; 67'foo' =~ /(foo)/; 68oct $3; 69EXPECT 70Use of uninitialized value $3 in oct at - line 4. 71######## 72# mg.c 73use warnings 'uninitialized'; 74oct $3; 75EXPECT 76Use of uninitialized value $3 in oct at - line 3. 77######## 78# mg.c 79use warnings 'uninitialized'; 80$ENV{FOO} = undef; # should not warn 81EXPECT 82