Commit | Line | Data |
---|---|---|
599cee73 PM |
1 | mg.c AOK |
2 | ||
3 | No such signal: SIG%s | |
4 | $SIG{FRED} = sub {} | |
5 | ||
d8940893 | 6 | Setting $/ to a reference to zero as a form of slurp is deprecated, treating as undef. This will be fatal in Perl 5.28 |
61666285 | 7 | |
599cee73 PM |
8 | SIG%s handler \"%s\" not defined. |
9 | $SIG{"INT"} = "ok3"; kill "INT",$$; | |
10 | ||
599cee73 PM |
11 | __END__ |
12 | # mg.c | |
4438c4b7 | 13 | use warnings 'signal' ; |
599cee73 PM |
14 | $SIG{FRED} = sub {}; |
15 | EXPECT | |
16 | No such signal: SIGFRED at - line 3. | |
17 | ######## | |
18 | # mg.c | |
4438c4b7 | 19 | no warnings 'signal' ; |
0453d815 PM |
20 | $SIG{FRED} = sub {}; |
21 | EXPECT | |
22 | ||
23 | ######## | |
61666285 FC |
24 | -w |
25 | # warnable code, warnings enabled via command line switch | |
26 | $/ = \0; | |
27 | EXPECT | |
d8940893 | 28 | Setting $/ to a reference to zero as a form of slurp is deprecated, treating as undef. This will be fatal in Perl 5.28 at - line 3. |
61666285 FC |
29 | ######## |
30 | -w | |
31 | # warnable code, warnings enabled via command line switch | |
32 | $/ = \-1; | |
33 | EXPECT | |
d8940893 | 34 | Setting $/ to a reference to a negative integer as a form of slurp is deprecated, treating as undef. This will be fatal in Perl 5.28 at - line 3. |
61666285 | 35 | ######## |
ddc3d23f FC |
36 | $/ = \-1; |
37 | no warnings 'deprecated'; | |
38 | $/ = \-1; | |
39 | EXPECT | |
d8940893 | 40 | Setting $/ to a reference to a negative integer as a form of slurp is deprecated, treating as undef. This will be fatal in Perl 5.28 at - line 1. |
ddc3d23f | 41 | ######## |
0453d815 | 42 | # mg.c |
4438c4b7 | 43 | use warnings 'signal' ; |
7b903762 | 44 | if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') { |
3eeba6fb | 45 | print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit; |
dfe13c55 | 46 | } |
d008e5eb | 47 | $|=1; |
599cee73 PM |
48 | $SIG{"INT"} = "fred"; kill "INT",$$; |
49 | EXPECT | |
50 | SIGINT handler "fred" not defined. | |
0453d815 PM |
51 | ######## |
52 | # mg.c | |
4438c4b7 | 53 | no warnings 'signal' ; |
7b903762 | 54 | if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') { |
e69a2255 | 55 | print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit; |
0453d815 PM |
56 | } |
57 | $|=1; | |
58 | $SIG{"INT"} = "fred"; kill "INT",$$; | |
59 | EXPECT | |
60 | ||
b6f8df71 RGS |
61 | ######## |
62 | # mg.c | |
07c325bb FC |
63 | use warnings 'signal' ; |
64 | if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') { | |
65 | print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit; | |
66 | } | |
67 | $|=1; | |
68 | $SIG{__WARN__} = sub { warn shift =~ s/\0/\\0/rugs }; | |
69 | $SIG{"INT"} = "fr\0d"; kill "INT",$$; | |
70 | EXPECT | |
71 | SIGINT handler "fr\0d" not defined. | |
72 | ######## | |
73 | # mg.c | |
74 | use warnings 'signal' ; | |
75 | use open ":std", ":utf8"; | |
76 | use utf8; | |
77 | if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') { | |
78 | print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit; | |
79 | } | |
80 | $|=1; | |
81 | $SIG{"INT"} = "프레드"; kill "INT",$$; | |
82 | EXPECT | |
83 | SIGINT handler "프레드" not defined. | |
84 | ######## | |
85 | # mg.c | |
b6f8df71 | 86 | use warnings 'uninitialized'; |
0e7ca5c9 | 87 | 'foo' =~ /(foo)/; |
9f621bb0 | 88 | oct $3; |
b6f8df71 | 89 | EXPECT |
9f621bb0 | 90 | Use of uninitialized value $3 in oct at - line 4. |
0e7ca5c9 RGS |
91 | ######## |
92 | # mg.c | |
93 | use warnings 'uninitialized'; | |
9f621bb0 | 94 | oct $3; |
0e7ca5c9 | 95 | EXPECT |
9f621bb0 | 96 | Use of uninitialized value $3 in oct at - line 3. |
9ae3433d RGS |
97 | ######## |
98 | # mg.c | |
99 | use warnings 'uninitialized'; | |
100 | $ENV{FOO} = undef; # should not warn | |
101 | EXPECT | |
d5b4785c DIM |
102 | ######## |
103 | ${^ENCODING} = 42; | |
104 | { local ${^ENCODING}; } | |
105 | ${^ENCODING} = undef; | |
106 | { local ${^ENCODING} = 37; } | |
107 | no warnings 'deprecated'; | |
108 | ${^ENCODING} = 42; | |
109 | { local ${^ENCODING}; } | |
110 | ${^ENCODING} = undef; | |
111 | { local ${^ENCODING} = 37; } | |
112 | EXPECT | |
ac641426 A |
113 | ${^ENCODING} is no longer supported. Its use will be fatal in Perl 5.28 at - line 1. |
114 | ${^ENCODING} is no longer supported. Its use will be fatal in Perl 5.28 at - line 4. |