Commit | Line | Data |
---|---|---|
599cee73 | 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 | ||
0453d815 | 9 | Mandatory Warnings TODO |
10 | ------------------ | |
11 | Can't break at that line [magic_setdbline] | |
599cee73 | 12 | |
13 | __END__ | |
14 | # mg.c | |
4438c4b7 | 15 | use warnings 'signal' ; |
599cee73 | 16 | $SIG{FRED} = sub {}; |
17 | EXPECT | |
18 | No such signal: SIGFRED at - line 3. | |
19 | ######## | |
20 | # mg.c | |
4438c4b7 | 21 | no warnings 'signal' ; |
0453d815 | 22 | $SIG{FRED} = sub {}; |
23 | EXPECT | |
24 | ||
25 | ######## | |
26 | # mg.c | |
4438c4b7 | 27 | use warnings 'signal' ; |
7b903762 | 28 | if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') { |
3eeba6fb | 29 | print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit; |
dfe13c55 | 30 | } |
d008e5eb | 31 | $|=1; |
599cee73 | 32 | $SIG{"INT"} = "fred"; kill "INT",$$; |
33 | EXPECT | |
34 | SIGINT handler "fred" not defined. | |
0453d815 | 35 | ######## |
36 | # mg.c | |
4438c4b7 | 37 | no warnings 'signal' ; |
7b903762 | 38 | if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') { |
e69a2255 | 39 | print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit; |
0453d815 | 40 | } |
41 | $|=1; | |
42 | $SIG{"INT"} = "fred"; kill "INT",$$; | |
43 | EXPECT | |
44 | ||
b6f8df71 | 45 | ######## |
46 | # mg.c | |
47 | use warnings 'uninitialized'; | |
0e7ca5c9 | 48 | 'foo' =~ /(foo)/; |
9f621bb0 | 49 | oct $3; |
b6f8df71 | 50 | EXPECT |
9f621bb0 | 51 | Use of uninitialized value $3 in oct at - line 4. |
0e7ca5c9 | 52 | ######## |
53 | # mg.c | |
54 | use warnings 'uninitialized'; | |
9f621bb0 | 55 | oct $3; |
0e7ca5c9 | 56 | EXPECT |
9f621bb0 | 57 | Use of uninitialized value $3 in oct at - line 3. |
9ae3433d | 58 | ######## |
59 | # mg.c | |
60 | use warnings 'uninitialized'; | |
61 | $ENV{FOO} = undef; # should not warn | |
62 | EXPECT |