Commit | Line | Data |
---|---|---|
599cee73 PM |
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. |