Commit | Line | Data |
8ebc5c01 |
1 | Check existing $^W functionality |
2 | |
3 | __END__ |
4 | |
5 | # warnable code, warnings disabled |
6 | $a =+ 3 ; |
7 | EXPECT |
8 | |
9 | ######## |
10 | -w |
11 | # warnable code, warnings enabled via command line switch |
12 | $a =+ 3 ; |
13 | EXPECT |
14 | Reversed += operator at - line 3. |
15 | ######## |
16 | #! perl -w |
17 | # warnable code, warnings enabled via #! line |
18 | $a =+ 3 ; |
19 | EXPECT |
20 | Reversed += operator at - line 3. |
21 | ######## |
22 | |
23 | # warnable code, warnings enabled via compile time $^W |
24 | BEGIN { $^W = 1 } |
25 | $a =+ 3 ; |
26 | EXPECT |
27 | Reversed += operator at - line 4. |
28 | ######## |
29 | |
30 | # compile-time warnable code, warnings enabled via runtime $^W |
31 | # so no warning printed. |
32 | $^W = 1 ; |
33 | $a =+ 3 ; |
34 | EXPECT |
35 | |
36 | ######## |
37 | |
38 | # warnable code, warnings enabled via runtime $^W |
39 | $^W = 1 ; |
40 | my $b ; chop $b ; |
41 | EXPECT |
42 | Use of uninitialized value at - line 4. |
43 | ######## |
44 | |
45 | # warnings enabled at compile time, disabled at run time |
46 | BEGIN { $^W = 1 } |
47 | $^W = 0 ; |
48 | my $b ; chop $b ; |
49 | EXPECT |
50 | |
51 | ######## |
52 | |
53 | # warnings disabled at compile time, enabled at run time |
54 | BEGIN { $^W = 0 } |
55 | $^W = 1 ; |
56 | my $b ; chop $b ; |
57 | EXPECT |
58 | Use of uninitialized value at - line 5. |
59 | ######## |
60 | -w |
61 | --FILE-- abcd |
62 | my $b ; chop $b ; |
63 | 1 ; |
64 | --FILE-- |
65 | require "./abcd"; |
66 | EXPECT |
67 | Use of uninitialized value at ./abcd line 1. |
68 | ######## |
69 | |
70 | --FILE-- abcd |
71 | my $b ; chop $b ; |
72 | 1 ; |
73 | --FILE-- |
74 | #! perl -w |
75 | require "./abcd"; |
76 | EXPECT |
77 | Use of uninitialized value at ./abcd line 1. |
78 | ######## |
79 | |
80 | --FILE-- abcd |
81 | my $b ; chop $b ; |
82 | 1 ; |
83 | --FILE-- |
84 | $^W =1 ; |
85 | require "./abcd"; |
86 | EXPECT |
87 | Use of uninitialized value at ./abcd line 1. |
88 | ######## |
89 | |
90 | --FILE-- abcd |
91 | $^W = 0; |
92 | my $b ; chop $b ; |
93 | 1 ; |
94 | --FILE-- |
95 | $^W =1 ; |
96 | require "./abcd"; |
97 | EXPECT |
98 | |
99 | ######## |
100 | |
101 | --FILE-- abcd |
102 | $^W = 1; |
103 | 1 ; |
104 | --FILE-- |
105 | $^W =0 ; |
106 | require "./abcd"; |
107 | my $b ; chop $b ; |
108 | EXPECT |
109 | Use of uninitialized value at - line 3. |
110 | ######## |
111 | |
112 | $^W = 1; |
113 | eval "my $b ; chop $b ;" ; |
114 | EXPECT |
115 | Use of uninitialized value at - line 3. |
116 | Use of uninitialized value at - line 3. |
117 | ######## |
118 | |
119 | eval "$^W = 1;" ; |
120 | my $b ; chop $b ; |
121 | EXPECT |
122 | |
123 | ######## |
124 | |
125 | eval {$^W = 1;} ; |
126 | my $b ; chop $b ; |
127 | EXPECT |
128 | Use of uninitialized value at - line 3. |
129 | ######## |
130 | |
131 | { |
132 | local ($^W) = 1; |
133 | } |
134 | my $b ; chop $b ; |
135 | EXPECT |
136 | |
137 | ######## |
138 | |
139 | my $a ; chop $a ; |
140 | { |
141 | local ($^W) = 1; |
142 | my $b ; chop $b ; |
143 | } |
144 | my $c ; chop $c ; |
145 | EXPECT |
146 | Use of uninitialized value at - line 5. |
4b74e3fb |
147 | ######## |
148 | -w |
149 | -e undef |
150 | EXPECT |
151 | Use of uninitialized value at - line 2. |