| 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' ; |
| 2986a63f |
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' ; |
| 2986a63f |
38 | if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') { |
| 0453d815 |
39 | print "SKIPPED\n# win32, can't kill() to raise()\n"; exit; |
| 40 | } |
| 41 | $|=1; |
| 42 | $SIG{"INT"} = "fred"; kill "INT",$$; |
| 43 | EXPECT |
| 44 | |
projects / p5sagit/p5-mst-13.2.git / blame