Commit | Line | Data |
599cee73 |
1 | Check interaction of $^W and lexical |
2 | |
3 | __END__ |
4 | |
5 | # Check interaction of $^W and use warning |
6 | sub fred { |
7 | use warning ; |
8 | my $b ; |
9 | chop $b ; |
10 | } |
11 | { local $^W = 0 ; |
12 | fred() ; |
13 | } |
14 | |
15 | EXPECT |
16 | Use of uninitialized value at - line 6. |
17 | ######## |
18 | |
19 | # Check interaction of $^W and use warning |
20 | sub fred { |
0453d815 |
21 | use warning ; |
22 | my $b ; |
23 | chop $b ; |
24 | } |
25 | { $^W = 0 ; |
26 | fred() ; |
27 | } |
28 | |
29 | EXPECT |
30 | Use of uninitialized value at - line 6. |
31 | ######## |
32 | |
33 | # Check interaction of $^W and use warning |
34 | sub fred { |
599cee73 |
35 | no warning ; |
36 | my $b ; |
37 | chop $b ; |
38 | } |
39 | { local $^W = 1 ; |
40 | fred() ; |
41 | } |
42 | |
43 | EXPECT |
0453d815 |
44 | |
45 | ######## |
46 | |
47 | # Check interaction of $^W and use warning |
48 | sub fred { |
49 | no warning ; |
50 | my $b ; |
51 | chop $b ; |
52 | } |
53 | { $^W = 1 ; |
54 | fred() ; |
55 | } |
56 | |
57 | EXPECT |
58 | |
599cee73 |
59 | ######## |
60 | |
61 | # Check interaction of $^W and use warning |
62 | use warning ; |
63 | $^W = 1 ; |
64 | my $b ; |
65 | chop $b ; |
66 | EXPECT |
67 | Use of uninitialized value at - line 6. |
68 | ######## |
69 | |
70 | # Check interaction of $^W and use warning |
71 | $^W = 1 ; |
72 | use warning ; |
73 | my $b ; |
74 | chop $b ; |
75 | EXPECT |
76 | Use of uninitialized value at - line 6. |
77 | ######## |
78 | |
79 | # Check interaction of $^W and use warning |
80 | $^W = 1 ; |
81 | no warning ; |
82 | my $b ; |
83 | chop $b ; |
84 | EXPECT |
0453d815 |
85 | |
599cee73 |
86 | ######## |
87 | |
88 | # Check interaction of $^W and use warning |
89 | no warning ; |
90 | $^W = 1 ; |
91 | my $b ; |
92 | chop $b ; |
93 | EXPECT |
0453d815 |
94 | |
95 | ######## |
96 | -w |
97 | # Check interaction of $^W and use warning |
98 | no warning ; |
99 | my $b ; |
100 | chop $b ; |
101 | EXPECT |
102 | |
103 | ######## |
104 | -w |
105 | # Check interaction of $^W and use warning |
106 | use warning ; |
107 | my $b ; |
108 | chop $b ; |
109 | EXPECT |
110 | Use of uninitialized value at - line 5. |
111 | ######## |
112 | |
113 | # Check interaction of $^W and use warning |
114 | sub fred { |
115 | use warning ; |
116 | my $b ; |
117 | chop $b ; |
118 | } |
119 | BEGIN { $^W = 0 } |
120 | fred() ; |
121 | EXPECT |
122 | Use of uninitialized value at - line 6. |
123 | ######## |
124 | |
125 | # Check interaction of $^W and use warning |
126 | sub fred { |
127 | no warning ; |
128 | my $b ; |
129 | chop $b ; |
130 | } |
131 | BEGIN { $^W = 1 } |
132 | fred() ; |
133 | |
134 | EXPECT |
135 | |
136 | ######## |
137 | |
138 | # Check interaction of $^W and use warning |
139 | use warning ; |
140 | BEGIN { $^W = 1 } |
141 | my $b ; |
142 | chop $b ; |
143 | EXPECT |
599cee73 |
144 | Use of uninitialized value at - line 6. |
0453d815 |
145 | ######## |
146 | |
147 | # Check interaction of $^W and use warning |
148 | BEGIN { $^W = 1 } |
149 | use warning ; |
150 | my $b ; |
151 | chop $b ; |
152 | EXPECT |
153 | Use of uninitialized value at - line 6. |
154 | ######## |
155 | |
156 | # Check interaction of $^W and use warning |
157 | BEGIN { $^W = 1 } |
158 | no warning ; |
159 | my $b ; |
160 | chop $b ; |
161 | EXPECT |
162 | |
163 | ######## |
164 | |
165 | # Check interaction of $^W and use warning |
166 | no warning ; |
167 | BEGIN { $^W = 1 } |
168 | my $b ; |
169 | chop $b ; |
170 | EXPECT |
171 | |
172 | ######## |
173 | |
174 | # Check interaction of $^W and use warning |
175 | BEGIN { $^W = 1 } |
176 | { |
177 | no warning ; |
178 | my $b ; |
179 | chop $b ; |
180 | } |
181 | my $b ; |
182 | chop $b ; |
183 | EXPECT |
184 | Use of uninitialized value at - line 10. |
185 | ######## |
186 | |
187 | # Check interaction of $^W and use warning |
188 | BEGIN { $^W = 0 } |
189 | { |
190 | use warning ; |
191 | my $b ; |
192 | chop $b ; |
193 | } |
194 | my $b ; |
195 | chop $b ; |
196 | EXPECT |
197 | Use of uninitialized value at - line 7. |