Commit | Line | Data |
f21d7107 |
1 | pad.c AOK |
2 | |
3 | "my" variable %s masks earlier declaration in same scope |
4 | my $x; |
5 | my $x ; |
6 | |
7 | Variable "%s" may be unavailable |
8 | sub x { |
9 | my $x; |
10 | sub y { |
11 | $x |
12 | } |
13 | } |
14 | |
15 | Variable "%s" will not stay shared |
16 | sub x { |
17 | my $x; |
18 | sub y { |
19 | sub { $x } |
20 | } |
21 | } |
22 | "our" variable %s redeclared (Did you mean "local" instead of "our"?) |
23 | our $x; |
24 | { |
25 | our $x; |
26 | } |
27 | |
28 | %s never introduced [pad_leavemy] TODO |
29 | |
30 | __END__ |
31 | # pad.c |
32 | use warnings 'misc' ; |
33 | my $x ; |
34 | my $x ; |
35 | my $y = my $y ; |
36 | no warnings 'misc' ; |
37 | my $x ; |
38 | my $y ; |
39 | EXPECT |
40 | "my" variable $x masks earlier declaration in same scope at - line 4. |
41 | "my" variable $y masks earlier declaration in same statement at - line 5. |
42 | ######## |
43 | # pad.c |
44 | use warnings 'closure' ; |
45 | sub x { |
46 | my $x; |
47 | sub y { |
48 | $x |
49 | } |
50 | } |
51 | EXPECT |
52 | Variable "$x" will not stay shared at - line 7. |
53 | ######## |
54 | # pad.c |
55 | no warnings 'closure' ; |
56 | sub x { |
57 | my $x; |
58 | sub y { |
59 | $x |
60 | } |
61 | } |
62 | EXPECT |
63 | |
64 | ######## |
65 | # pad.c |
66 | use warnings 'closure' ; |
67 | sub x { |
68 | our $x; |
69 | sub y { |
70 | $x |
71 | } |
72 | } |
73 | EXPECT |
74 | |
75 | ######## |
76 | # pad.c |
77 | use warnings 'closure' ; |
78 | sub x { |
79 | my $x; |
80 | sub y { |
81 | sub { $x } |
82 | } |
83 | } |
84 | EXPECT |
85 | Variable "$x" may be unavailable at - line 6. |
86 | ######## |
87 | # pad.c |
88 | no warnings 'closure' ; |
89 | sub x { |
90 | my $x; |
91 | sub y { |
92 | sub { $x } |
93 | } |
94 | } |
95 | EXPECT |
96 | |
97 | ######## |
98 | use warnings 'misc' ; |
99 | our $x; |
100 | { |
101 | our $x; |
102 | } |
103 | EXPECT |
104 | "our" variable $x redeclared at - line 4. |
105 | (Did you mean "local" instead of "our"?) |