Move the locale/strict/warnings helper files back
[p5sagit/p5-mst-13.2.git] / t / lib / warnings / 3both
1 Check interaction of $^W and lexical
2
3 __END__
4
5 # Check interaction of $^W and use warnings
6 sub fred { 
7     use warnings ;
8     my $b ; 
9     chop $b ;
10 }
11 { local $^W = 0 ;
12   fred() ;
13 }
14
15 EXPECT
16 Use of uninitialized value in scalar chop at - line 6.
17 ########
18
19 # Check interaction of $^W and use warnings
20 sub fred { 
21     use warnings ;
22     my $b ; 
23     chop $b ;
24 }
25 { $^W = 0 ;
26   fred() ;
27 }
28
29 EXPECT
30 Use of uninitialized value in scalar chop at - line 6.
31 ########
32
33 # Check interaction of $^W and use warnings
34 sub fred { 
35     no warnings ;
36     my $b ; 
37     chop $b ;
38 }
39 { local $^W = 1 ;
40   fred() ;
41 }
42
43 EXPECT
44
45 ########
46
47 # Check interaction of $^W and use warnings
48 sub fred { 
49     no warnings ;
50     my $b ; 
51     chop $b ;
52 }
53 { $^W = 1 ;
54   fred() ;
55 }
56
57 EXPECT
58
59 ########
60
61 # Check interaction of $^W and use warnings
62 use warnings ;
63 $^W = 1 ;
64 my $b ; 
65 chop $b ;
66 EXPECT
67 Use of uninitialized value in scalar chop at - line 6.
68 ########
69
70 # Check interaction of $^W and use warnings
71 $^W = 1 ;
72 use warnings ;
73 my $b ; 
74 chop $b ;
75 EXPECT
76 Use of uninitialized value in scalar chop at - line 6.
77 ########
78
79 # Check interaction of $^W and use warnings
80 $^W = 1 ;
81 no warnings ;
82 my $b ; 
83 chop $b ;
84 EXPECT
85
86 ########
87
88 # Check interaction of $^W and use warnings
89 no warnings ;
90 $^W = 1 ;
91 my $b ; 
92 chop $b ;
93 EXPECT
94
95 ########
96 -w
97 # Check interaction of $^W and use warnings
98 no warnings ;
99 my $b ; 
100 chop $b ;
101 EXPECT
102
103 ########
104 -w
105 # Check interaction of $^W and use warnings
106 use warnings ;
107 my $b ; 
108 chop $b ;
109 EXPECT
110 Use of uninitialized value in scalar chop at - line 5.
111 ########
112
113 # Check interaction of $^W and use warnings
114 sub fred { 
115     use warnings ;
116     my $b ; 
117     chop $b ;
118 }
119 BEGIN {  $^W = 0 }
120 fred() ;
121 EXPECT
122 Use of uninitialized value in scalar chop at - line 6.
123 ########
124
125 # Check interaction of $^W and use warnings
126 sub fred { 
127     no warnings ;
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 warnings
139 use warnings ;
140 BEGIN {  $^W = 1 }
141 my $b ; 
142 chop $b ;
143 EXPECT
144 Use of uninitialized value in scalar chop at - line 6.
145 ########
146
147 # Check interaction of $^W and use warnings
148 BEGIN {  $^W = 1 }
149 use warnings ;
150 my $b ; 
151 chop $b ;
152 EXPECT
153 Use of uninitialized value in scalar chop at - line 6.
154 ########
155
156 # Check interaction of $^W and use warnings
157 BEGIN {  $^W = 1 }
158 no warnings ;
159 my $b ; 
160 chop $b ;
161 EXPECT
162
163 ########
164
165 # Check interaction of $^W and use warnings
166 no warnings ;
167 BEGIN {  $^W = 1 }
168 my $b ; 
169 chop $b ;
170 EXPECT
171
172 ########
173
174 # Check interaction of $^W and use warnings
175 BEGIN {  $^W = 1 }
176 {
177     no warnings ;
178     my $b ; 
179     chop $b ;
180 }
181 my $b ;
182 chop $b ;
183 EXPECT
184 Use of uninitialized value in scalar chop at - line 10.
185 ########
186
187 # Check interaction of $^W and use warnings
188 BEGIN {  $^W = 0 }
189 {
190     use warnings ;
191     my $b ; 
192     chop $b ;
193 }
194 my $b ;
195 chop $b ;
196 EXPECT
197 Use of uninitialized value in scalar chop at - line 7.
198 ########
199
200 # Check scope of pragma with eval
201 BEGIN {  $^W = 1 }
202 {
203     no warnings ;
204     eval '
205         my $b ; chop $b ;
206     '; print STDERR $@ ;
207     my $b ; chop $b ;
208 }
209 EXPECT
210
211 ########
212
213 # Check scope of pragma with eval
214 BEGIN {  $^W = 1 }
215 use warnings;
216 {
217     no warnings ;
218     eval q[ 
219         use warnings 'uninitialized' ;
220         my $b ; chop $b ;
221     ]; print STDERR $@;
222     my $b ; chop $b ;
223 }
224 EXPECT
225 Use of uninitialized value in scalar chop at (eval 1) line 3.
226 ########
227
228 # Check scope of pragma with eval
229 BEGIN {  $^W = 0 }
230 {
231     use warnings 'uninitialized' ;
232     eval '
233         my $b ; chop $b ;
234     '; print STDERR $@ ;
235     my $b ; chop $b ;
236 }
237 EXPECT
238 Use of uninitialized value in scalar chop at (eval 1) line 2.
239 Use of uninitialized value in scalar chop at - line 9.
240 ########
241
242 # Check scope of pragma with eval
243 BEGIN {  $^W = 0 }
244 {
245     use warnings 'uninitialized' ;
246     eval '
247         no warnings ;
248         my $b ; chop $b ;
249     '; print STDERR $@ ;
250     my $b ; chop $b ;
251 }
252 EXPECT
253 Use of uninitialized value in scalar chop at - line 10.
254 ########
255
256 # Check scope of pragma with eval
257 BEGIN {  $^W = 1 }
258 {
259     no warnings ;
260     eval '
261         my $a =+ 1 ;
262     '; print STDERR $@ ;
263     my $a =+ 1 ;
264 }
265 EXPECT
266