Commit | Line | Data |
---|---|---|
8ebc5c01 | 1 | Check existing $^W functionality |
2 | ||
599cee73 | 3 | |
8ebc5c01 | 4 | __END__ |
5 | ||
6 | # warnable code, warnings disabled | |
7 | $a =+ 3 ; | |
8 | EXPECT | |
9 | ||
10 | ######## | |
11 | -w | |
12 | # warnable code, warnings enabled via command line switch | |
ea238638 | 13 | $c =+ 3 ; |
8ebc5c01 | 14 | EXPECT |
15 | Reversed += operator at - line 3. | |
ea238638 | 16 | Name "main::c" used only once: possible typo at - line 3. |
8ebc5c01 | 17 | ######## |
18 | #! perl -w | |
19 | # warnable code, warnings enabled via #! line | |
ea238638 | 20 | $c =+ 3 ; |
8ebc5c01 | 21 | EXPECT |
22 | Reversed += operator at - line 3. | |
ea238638 | 23 | Name "main::c" used only once: possible typo at - line 3. |
8ebc5c01 | 24 | ######## |
25 | ||
26 | # warnable code, warnings enabled via compile time $^W | |
27 | BEGIN { $^W = 1 } | |
ea238638 | 28 | $c =+ 3 ; |
8ebc5c01 | 29 | EXPECT |
30 | Reversed += operator at - line 4. | |
ea238638 | 31 | Name "main::c" used only once: possible typo at - line 4. |
8ebc5c01 | 32 | ######## |
012bcf7e BF |
33 | -w |
34 | # warnable code, warnings enabled via command line switch | |
35 | use utf8; | |
36 | use open qw( :utf8 :std ); | |
37 | $Ằ =+ 3 ; | |
38 | EXPECT | |
39 | Reversed += operator at - line 5. | |
40 | Name "main::Ằ" used only once: possible typo at - line 5. | |
41 | ######## | |
42 | #! perl -w | |
43 | # warnable code, warnings enabled via #! line | |
44 | use utf8; | |
45 | use open qw( :utf8 :std ); | |
46 | $Ằ =+ 3 ; | |
47 | EXPECT | |
48 | Reversed += operator at - line 5. | |
49 | Name "main::Ằ" used only once: possible typo at - line 5. | |
50 | ######## | |
51 | ||
52 | # warnable code, warnings enabled via compile time $^W | |
53 | BEGIN { $^W = 1 } | |
54 | use utf8; | |
55 | use open qw( :utf8 :std ); | |
56 | $Ằ =+ 3 ; | |
57 | EXPECT | |
58 | Reversed += operator at - line 6. | |
59 | Name "main::Ằ" used only once: possible typo at - line 6. | |
60 | ||
61 | ######## | |
8ebc5c01 | 62 | |
63 | # compile-time warnable code, warnings enabled via runtime $^W | |
64 | # so no warning printed. | |
65 | $^W = 1 ; | |
66 | $a =+ 3 ; | |
67 | EXPECT | |
68 | ||
69 | ######## | |
70 | ||
71 | # warnable code, warnings enabled via runtime $^W | |
72 | $^W = 1 ; | |
73 | my $b ; chop $b ; | |
74 | EXPECT | |
29489e7c | 75 | Use of uninitialized value $b in scalar chop at - line 4. |
8ebc5c01 | 76 | ######## |
77 | ||
78 | # warnings enabled at compile time, disabled at run time | |
79 | BEGIN { $^W = 1 } | |
80 | $^W = 0 ; | |
81 | my $b ; chop $b ; | |
82 | EXPECT | |
83 | ||
84 | ######## | |
85 | ||
86 | # warnings disabled at compile time, enabled at run time | |
87 | BEGIN { $^W = 0 } | |
88 | $^W = 1 ; | |
89 | my $b ; chop $b ; | |
90 | EXPECT | |
29489e7c | 91 | Use of uninitialized value $b in scalar chop at - line 5. |
8ebc5c01 | 92 | ######## |
93 | -w | |
94 | --FILE-- abcd | |
95 | my $b ; chop $b ; | |
96 | 1 ; | |
97 | --FILE-- | |
98 | require "./abcd"; | |
99 | EXPECT | |
29489e7c | 100 | Use of uninitialized value $b in scalar chop at ./abcd line 1. |
8ebc5c01 | 101 | ######## |
102 | ||
103 | --FILE-- abcd | |
104 | my $b ; chop $b ; | |
105 | 1 ; | |
106 | --FILE-- | |
107 | #! perl -w | |
108 | require "./abcd"; | |
109 | EXPECT | |
29489e7c | 110 | Use of uninitialized value $b in scalar chop at ./abcd line 1. |
8ebc5c01 | 111 | ######## |
112 | ||
113 | --FILE-- abcd | |
114 | my $b ; chop $b ; | |
115 | 1 ; | |
116 | --FILE-- | |
117 | $^W =1 ; | |
118 | require "./abcd"; | |
119 | EXPECT | |
29489e7c | 120 | Use of uninitialized value $b in scalar chop at ./abcd line 1. |
8ebc5c01 | 121 | ######## |
122 | ||
123 | --FILE-- abcd | |
124 | $^W = 0; | |
125 | my $b ; chop $b ; | |
126 | 1 ; | |
127 | --FILE-- | |
128 | $^W =1 ; | |
129 | require "./abcd"; | |
130 | EXPECT | |
131 | ||
132 | ######## | |
133 | ||
134 | --FILE-- abcd | |
135 | $^W = 1; | |
136 | 1 ; | |
137 | --FILE-- | |
138 | $^W =0 ; | |
139 | require "./abcd"; | |
140 | my $b ; chop $b ; | |
141 | EXPECT | |
29489e7c | 142 | Use of uninitialized value $b in scalar chop at - line 3. |
8ebc5c01 | 143 | ######## |
144 | ||
145 | $^W = 1; | |
599cee73 PM |
146 | eval 'my $b ; chop $b ;' ; |
147 | print $@ ; | |
8ebc5c01 | 148 | EXPECT |
29489e7c | 149 | Use of uninitialized value $b in scalar chop at (eval 1) line 1. |
8ebc5c01 | 150 | ######## |
151 | ||
599cee73 PM |
152 | eval '$^W = 1;' ; |
153 | print $@ ; | |
8ebc5c01 | 154 | my $b ; chop $b ; |
155 | EXPECT | |
29489e7c | 156 | Use of uninitialized value $b in scalar chop at - line 4. |
8ebc5c01 | 157 | ######## |
158 | ||
159 | eval {$^W = 1;} ; | |
599cee73 | 160 | print $@ ; |
8ebc5c01 | 161 | my $b ; chop $b ; |
162 | EXPECT | |
29489e7c | 163 | Use of uninitialized value $b in scalar chop at - line 4. |
8ebc5c01 | 164 | ######## |
165 | ||
166 | { | |
167 | local ($^W) = 1; | |
168 | } | |
169 | my $b ; chop $b ; | |
170 | EXPECT | |
171 | ||
172 | ######## | |
173 | ||
174 | my $a ; chop $a ; | |
175 | { | |
176 | local ($^W) = 1; | |
177 | my $b ; chop $b ; | |
178 | } | |
179 | my $c ; chop $c ; | |
180 | EXPECT | |
29489e7c | 181 | Use of uninitialized value $b in scalar chop at - line 5. |
4b74e3fb HS |
182 | ######## |
183 | -w | |
184 | -e undef | |
185 | EXPECT | |
b89fed5f | 186 | Use of uninitialized value in -e at - line 2. |
599cee73 PM |
187 | ######## |
188 | ||
189 | $^W = 1 + 2 ; | |
190 | EXPECT | |
191 | ||
192 | ######## | |
193 | ||
194 | $^W = $a ; | |
195 | EXPECT | |
196 | ||
197 | ######## | |
198 | ||
199 | sub fred {} | |
200 | $^W = fred() ; | |
201 | EXPECT | |
202 | ||
203 | ######## | |
204 | ||
205 | sub fred { my $b ; chop $b ;} | |
206 | { local $^W = 0 ; | |
207 | fred() ; | |
208 | } | |
209 | EXPECT | |
210 | ||
211 | ######## | |
212 | ||
213 | sub fred { my $b ; chop $b ;} | |
214 | { local $^W = 1 ; | |
215 | fred() ; | |
216 | } | |
217 | EXPECT | |
29489e7c | 218 | Use of uninitialized value $b in scalar chop at - line 2. |