3 print() on unopened filehandle abc [pp_print]
4 $f = $a = "abc" ; print $f $a
6 Filehandle %s opened only for input [pp_print]
9 Filehandle %s opened only for output [pp_print]
12 print() on closed filehandle %s [pp_print]
13 close STDIN ; print STDIN "abc" ;
15 uninitialized [pp_rv2av]
16 my $a = undef ; my @b = @$a
18 uninitialized [pp_rv2hv]
19 my $a = undef ; my %b = %$a
21 Odd number of elements in hash list [pp_aassign]
24 Reference found where even-sized list expected [pp_aassign]
27 Filehandle %s opened only for output [Perl_do_readline]
31 glob failed (can't start child: %s) [Perl_do_readline] <<TODO
33 readline() on closed filehandle %s [Perl_do_readline]
34 close STDIN ; $a = <STDIN>;
36 readline() on closed filehandle %s [Perl_do_readline]
39 glob failed (child exited with status %d%s) [Perl_do_readline] <<TODO
41 Deep recursion on subroutine \"%s\" [Perl_sub_crush_depth]
42 sub fred { fred() if $a++ < 200} fred()
44 Deep recursion on anonymous subroutine [Perl_sub_crush_depth]
45 $a = sub { &$a if $a++ < 200} &$a
47 Possible Y2K bug: about to append an integer to '19' [pp_concat]
50 Use of reference "%s" as array index [pp_aelem]
55 use warnings 'unopened' ;
58 no warnings 'unopened' ;
61 print() on unopened filehandle abc at - line 4.
68 open(FOO, ">&STDOUT") and print <FOO>;
71 ####################################################################
72 # The next test is known to fail on some systems (Linux+old glibc, #
73 # some *BSDs (including Mac OS X and NeXT), among others. #
74 # We skip it for now (on the grounds that it is "just" a warning). #
75 ####################################################################
80 Filehandle STDIN opened only for input at - line 3.
81 Filehandle STDOUT opened only for output at - line 4.
82 Filehandle STDERR opened only for output at - line 5.
83 Filehandle FOO opened only for output at - line 6.
84 Filehandle STDERR opened only for output at - line 7.
85 Filehandle FOO opened only for output at - line 8.
88 use warnings 'closed' ;
94 no warnings 'closed' ;
99 print() on closed filehandle STDIN at - line 4.
100 print() on closed filehandle STDIN at - line 6.
101 (Are you trying to call print() on dirhandle STDIN?)
103 # pp_hot.c [pp_rv2av]
104 use warnings 'uninitialized' ;
107 no warnings 'uninitialized' ;
110 Use of uninitialized value in array dereference at - line 4.
112 # pp_hot.c [pp_rv2hv]
113 use warnings 'uninitialized' ;
116 no warnings 'uninitialized' ;
119 Use of uninitialized value in hash dereference at - line 4.
121 # pp_hot.c [pp_aassign]
122 use warnings 'misc' ;
123 my %X ; %X = (1,2,3) ;
125 my %Y ; %Y = (1,2,3) ;
127 Odd number of elements in hash assignment at - line 3.
129 # pp_hot.c [pp_aassign]
130 use warnings 'misc' ;
131 my %X ; %X = [1 .. 3] ;
133 my %Y ; %Y = [1 .. 3] ;
135 Reference found where even-sized list expected at - line 3.
137 # pp_hot.c [Perl_do_readline]
138 use warnings 'closed' ;
139 close STDIN ; $a = <STDIN> ;
140 opendir STDIN, "." ; $a = <STDIN> ;
142 no warnings 'closed' ;
143 opendir STDIN, "." ; $a = <STDIN> ;
146 readline() on closed filehandle STDIN at - line 3.
147 readline() on closed filehandle STDIN at - line 4.
148 (Are you trying to call readline() on dirhandle STDIN?)
150 # pp_hot.c [Perl_do_readline]
152 my $file = "./xcv" ; unlink $file ;
153 open (FH, ">./xcv") ;
160 Filehandle FH opened only for output at - line 5.
162 # pp_hot.c [Perl_sub_crush_depth]
163 use warnings 'recursion' ;
169 local $SIG{__WARN__} = sub {
170 die "ok\n" if $_[0] =~ /^Deep recursion on subroutine "main::fred"/
177 # pp_hot.c [Perl_sub_crush_depth]
178 no warnings 'recursion' ;
184 local $SIG{__WARN__} = sub {
185 die "ok\n" if $_[0] =~ /^Deep recursion on subroutine "main::fred"/
192 # pp_hot.c [Perl_sub_crush_depth]
193 use warnings 'recursion' ;
201 Deep recursion on anonymous subroutine at - line 5.
203 # pp_hot.c [Perl_sub_crush_depth]
204 no warnings 'recursion' ;
213 # pp_hot.c [pp_concat]
214 use warnings 'uninitialized';
217 a($x . "x"); # should warn once
218 a($x . $y); # should warn twice
219 $x .= $y; # should warn once
220 $y .= $y; # should warn once
222 Use of uninitialized value in concatenation (.) or string at - line 5.
223 Use of uninitialized value in concatenation (.) or string at - line 6.
224 Use of uninitialized value in concatenation (.) or string at - line 6.
225 Use of uninitialized value in concatenation (.) or string at - line 7.
226 Use of uninitialized value in concatenation (.) or string at - line 8.
228 # pp_hot.c [pp_concat]
232 unless ($Config{ccflags} =~ /Y2KWARN/) {
233 print "SKIPPED\n# perl not built with -DPERL_Y2KWARN";
240 $x = "19" . $yy . "\n";
242 $x = "319" . $yy . "\n";
249 $x = "19" . $yy . "\n";
251 Possible Y2K bug: about to append an integer to '19' at - line 12.
252 Possible Y2K bug: about to append an integer to '19' at - line 13.
254 # pp_hot.c [pp_aelem]
266 Use of reference ".*" as array index at - line 4.
268 # pp_hot.c [pp_aelem]
269 package Foo;use overload q("") => sub {};package main;$a = bless {}, "Foo";
284 Use of reference ".*" as array index at - line 7.