Commit | Line | Data |
767a6a26 |
1 | pp_hot.c |
599cee73 |
2 | |
767a6a26 |
3 | Filehandle %s never opened [pp_print] |
599cee73 |
4 | $f = $a = "abc" ; print $f $a |
5 | |
767a6a26 |
6 | Filehandle %s opened only for input [pp_print] |
599cee73 |
7 | print STDIN "abc" ; |
8 | |
767a6a26 |
9 | Filehandle %s opened only for output [pp_print] |
af8c498a |
10 | print <STDOUT> ; |
599cee73 |
11 | |
9a7dcd9c |
12 | print() on closed filehandle %s [pp_print] |
599cee73 |
13 | close STDIN ; print STDIN "abc" ; |
14 | |
767a6a26 |
15 | uninitialized [pp_rv2av] |
599cee73 |
16 | my $a = undef ; my @b = @$a |
17 | |
767a6a26 |
18 | uninitialized [pp_rv2hv] |
599cee73 |
19 | my $a = undef ; my %b = %$a |
20 | |
767a6a26 |
21 | Odd number of elements in hash list [pp_aassign] |
599cee73 |
22 | %X = (1,2,3) ; |
23 | |
767a6a26 |
24 | Reference found where even-sized list expected [pp_aassign] |
599cee73 |
25 | $X = [ 1 ..3 ]; |
26 | |
767a6a26 |
27 | Filehandle %s opened only for output [Perl_do_readline] |
28 | open (FH, ">./xcv") ; |
29 | my $a = <FH> ; |
30 | |
31 | glob failed (can't start child: %s) [Perl_do_readline] <<TODO |
32 | |
9a7dcd9c |
33 | readline() on closed filehandle %s [Perl_do_readline] |
599cee73 |
34 | close STDIN ; $a = <STDIN>; |
35 | |
767a6a26 |
36 | glob failed (child exited with status %d%s) [Perl_do_readline] <<TODO |
37 | |
38 | Deep recursion on subroutine \"%s\" [Perl_sub_crush_depth] |
6bc102ca |
39 | sub fred { fred() if $a++ < 200} fred() |
599cee73 |
40 | |
767a6a26 |
41 | Deep recursion on anonymous subroutine [Perl_sub_crush_depth] |
6bc102ca |
42 | $a = sub { &$a if $a++ < 200} &$a |
599cee73 |
43 | |
6bc102ca |
44 | Possible Y2K bug: about to append an integer to '19' [pp_concat] |
45 | $x = "19$yy\n"; |
767a6a26 |
46 | |
599cee73 |
47 | __END__ |
767a6a26 |
48 | # pp_hot.c [pp_print] |
4438c4b7 |
49 | use warnings 'unopened' ; |
599cee73 |
50 | $f = $a = "abc" ; |
0453d815 |
51 | print $f $a; |
4438c4b7 |
52 | no warnings 'unopened' ; |
0453d815 |
53 | print $f $a; |
599cee73 |
54 | EXPECT |
55 | Filehandle main::abc never opened at - line 4. |
56 | ######## |
767a6a26 |
57 | # pp_hot.c [pp_print] |
4438c4b7 |
58 | use warnings 'io' ; |
599cee73 |
59 | print STDIN "anc"; |
af8c498a |
60 | print <STDOUT>; |
61 | print <STDERR>; |
62 | open(FOO, ">&STDOUT") and print <FOO>; |
63 | print getc(STDERR); |
64 | print getc(FOO); |
88c07c36 |
65 | #################################################################### |
37bd1396 |
66 | # The next test is known to fail on some systems (Linux/BSD+glibc, # |
67 | # NeXT among others. glibc should be fixed in the next version, # |
68 | # but it appears other platforms have little hope. We skip it for # |
69 | # now (on the grounds that it is "just" a warning). # |
88c07c36 |
70 | #################################################################### |
37bd1396 |
71 | #read(FOO,$_,1); |
72 | no warnings 'io' ; |
73 | print STDIN "anc"; |
599cee73 |
74 | EXPECT |
75 | Filehandle main::STDIN opened only for input at - line 3. |
af8c498a |
76 | Filehandle main::STDOUT opened only for output at - line 4. |
77 | Filehandle main::STDERR opened only for output at - line 5. |
78 | Filehandle main::FOO opened only for output at - line 6. |
79 | Filehandle main::STDERR opened only for output at - line 7. |
80 | Filehandle main::FOO opened only for output at - line 8. |
599cee73 |
81 | ######## |
767a6a26 |
82 | # pp_hot.c [pp_print] |
4438c4b7 |
83 | use warnings 'closed' ; |
599cee73 |
84 | close STDIN ; |
85 | print STDIN "anc"; |
69282e91 |
86 | opendir STDIN, "."; |
87 | print STDIN "anc"; |
88 | closedir STDIN; |
4438c4b7 |
89 | no warnings 'closed' ; |
0453d815 |
90 | print STDIN "anc"; |
69282e91 |
91 | opendir STDIN, "."; |
92 | print STDIN "anc"; |
599cee73 |
93 | EXPECT |
9a7dcd9c |
94 | print() on closed filehandle main::STDIN at - line 4. |
69282e91 |
95 | print() on closed filehandle main::STDIN at - line 6. |
96 | (Are you trying to call print() on dirhandle main::STDIN?) |
599cee73 |
97 | ######## |
767a6a26 |
98 | # pp_hot.c [pp_rv2av] |
4438c4b7 |
99 | use warnings 'uninitialized' ; |
599cee73 |
100 | my $a = undef ; |
0453d815 |
101 | my @b = @$a; |
4438c4b7 |
102 | no warnings 'uninitialized' ; |
0453d815 |
103 | my @c = @$a; |
599cee73 |
104 | EXPECT |
b89fed5f |
105 | Use of uninitialized value in array dereference at - line 4. |
599cee73 |
106 | ######## |
767a6a26 |
107 | # pp_hot.c [pp_rv2hv] |
4438c4b7 |
108 | use warnings 'uninitialized' ; |
599cee73 |
109 | my $a = undef ; |
0453d815 |
110 | my %b = %$a; |
4438c4b7 |
111 | no warnings 'uninitialized' ; |
0453d815 |
112 | my %c = %$a; |
599cee73 |
113 | EXPECT |
b89fed5f |
114 | Use of uninitialized value in hash dereference at - line 4. |
599cee73 |
115 | ######## |
767a6a26 |
116 | # pp_hot.c [pp_aassign] |
e476b1b5 |
117 | use warnings 'misc' ; |
599cee73 |
118 | my %X ; %X = (1,2,3) ; |
e476b1b5 |
119 | no warnings 'misc' ; |
0453d815 |
120 | my %Y ; %Y = (1,2,3) ; |
599cee73 |
121 | EXPECT |
122 | Odd number of elements in hash assignment at - line 3. |
123 | ######## |
767a6a26 |
124 | # pp_hot.c [pp_aassign] |
e476b1b5 |
125 | use warnings 'misc' ; |
599cee73 |
126 | my %X ; %X = [1 .. 3] ; |
e476b1b5 |
127 | no warnings 'misc' ; |
0453d815 |
128 | my %Y ; %Y = [1 .. 3] ; |
599cee73 |
129 | EXPECT |
130 | Reference found where even-sized list expected at - line 3. |
131 | ######## |
767a6a26 |
132 | # pp_hot.c [Perl_do_readline] |
4438c4b7 |
133 | use warnings 'closed' ; |
69282e91 |
134 | close STDIN ; $a = <STDIN> ; |
135 | opendir STDIN, "." ; $a = <STDIN> ; |
136 | closedir STDIN; |
4438c4b7 |
137 | no warnings 'closed' ; |
69282e91 |
138 | opendir STDIN, "." ; $a = <STDIN> ; |
0453d815 |
139 | $a = <STDIN> ; |
599cee73 |
140 | EXPECT |
9a7dcd9c |
141 | readline() on closed filehandle main::STDIN at - line 3. |
69282e91 |
142 | readline() on closed filehandle main::STDIN at - line 4. |
143 | (Are you trying to call readline() on dirhandle main::STDIN?) |
599cee73 |
144 | ######## |
767a6a26 |
145 | # pp_hot.c [Perl_do_readline] |
146 | use warnings 'io' ; |
147 | my $file = "./xcv" ; unlink $file ; |
148 | open (FH, ">./xcv") ; |
149 | my $a = <FH> ; |
150 | no warnings 'io' ; |
151 | $a = <FH> ; |
152 | unlink $file ; |
153 | EXPECT |
154 | Filehandle main::FH opened only for output at - line 5. |
155 | ######## |
156 | # pp_hot.c [Perl_sub_crush_depth] |
4438c4b7 |
157 | use warnings 'recursion' ; |
599cee73 |
158 | sub fred |
159 | { |
160 | fred() if $a++ < 200 |
161 | } |
4a925ff6 |
162 | { |
163 | local $SIG{__WARN__} = sub { |
164 | die "ok\n" if $_[0] =~ /^Deep recursion on subroutine "main::fred"/ |
165 | }; |
166 | fred(); |
167 | } |
599cee73 |
168 | EXPECT |
4a925ff6 |
169 | ok |
599cee73 |
170 | ######## |
767a6a26 |
171 | # pp_hot.c [Perl_sub_crush_depth] |
4438c4b7 |
172 | no warnings 'recursion' ; |
0453d815 |
173 | sub fred |
174 | { |
175 | fred() if $a++ < 200 |
176 | } |
177 | { |
178 | local $SIG{__WARN__} = sub { |
179 | die "ok\n" if $_[0] =~ /^Deep recursion on subroutine "main::fred"/ |
180 | }; |
181 | fred(); |
182 | } |
183 | EXPECT |
184 | |
185 | ######## |
767a6a26 |
186 | # pp_hot.c [Perl_sub_crush_depth] |
4438c4b7 |
187 | use warnings 'recursion' ; |
599cee73 |
188 | $b = sub |
189 | { |
190 | &$b if $a++ < 200 |
191 | } ; |
192 | |
193 | &$b ; |
194 | EXPECT |
195 | Deep recursion on anonymous subroutine at - line 5. |
0453d815 |
196 | ######## |
767a6a26 |
197 | # pp_hot.c [Perl_sub_crush_depth] |
4438c4b7 |
198 | no warnings 'recursion' ; |
0453d815 |
199 | $b = sub |
200 | { |
201 | &$b if $a++ < 200 |
202 | } ; |
203 | |
204 | &$b ; |
205 | EXPECT |
6bc102ca |
206 | ######## |
207 | # pp_hot.c [pp_concat] |
e476b1b5 |
208 | use warnings 'y2k'; |
6bc102ca |
209 | use Config; |
210 | BEGIN { |
211 | unless ($Config{ccflags} =~ /Y2KWARN/) { |
212 | print "SKIPPED\n# perl not built with -DPERL_Y2KWARN"; |
213 | exit 0; |
214 | } |
215 | } |
216 | my $x; |
217 | my $yy = 78; |
218 | $x = "19$yy\n"; |
219 | $x = "19" . $yy . "\n"; |
220 | $x = "319$yy\n"; |
221 | $x = "319" . $yy . "\n"; |
e476b1b5 |
222 | no warnings 'y2k'; |
6bc102ca |
223 | $x = "19$yy\n"; |
224 | $x = "19" . $yy . "\n"; |
225 | EXPECT |
226 | Possible Y2K bug: about to append an integer to '19' at - line 12. |
227 | Possible Y2K bug: about to append an integer to '19' at - line 13. |