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 { |
21 | no warning ; |
22 | my $b ; |
23 | chop $b ; |
24 | } |
25 | { local $^W = 1 ; |
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 | use warning ; |
35 | $^W = 1 ; |
36 | my $b ; |
37 | chop $b ; |
38 | EXPECT |
39 | Use of uninitialized value at - line 6. |
40 | ######## |
41 | |
42 | # Check interaction of $^W and use warning |
43 | $^W = 1 ; |
44 | use warning ; |
45 | my $b ; |
46 | chop $b ; |
47 | EXPECT |
48 | Use of uninitialized value at - line 6. |
49 | ######## |
50 | |
51 | # Check interaction of $^W and use warning |
52 | $^W = 1 ; |
53 | no warning ; |
54 | my $b ; |
55 | chop $b ; |
56 | EXPECT |
57 | Use of uninitialized value at - line 6. |
58 | ######## |
59 | |
60 | # Check interaction of $^W and use warning |
61 | no warning ; |
62 | $^W = 1 ; |
63 | my $b ; |
64 | chop $b ; |
65 | EXPECT |
66 | Use of uninitialized value at - line 6. |