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]
52 use warnings 'unopened' ;
55 no warnings 'unopened' ;
58 print() on unopened filehandle abc at - line 4.
65 open(FOO, ">&STDOUT") and print <FOO>;
68 ####################################################################
69 # The next test is known to fail on some systems (Linux+old glibc, #
70 # old *BSDs, and NeXT, among others. #
71 # We skip it for now (on the grounds that it is "just" a warning). #
72 ####################################################################
77 Filehandle STDIN opened only for input at - line 3.
78 Filehandle STDOUT opened only for output at - line 4.
79 Filehandle STDERR opened only for output at - line 5.
80 Filehandle FOO opened only for output at - line 6.
81 Filehandle STDERR opened only for output at - line 7.
82 Filehandle FOO opened only for output at - line 8.
85 use warnings 'closed' ;
91 no warnings 'closed' ;
96 print() on closed filehandle STDIN at - line 4.
97 print() on closed filehandle STDIN at - line 6.
98 (Are you trying to call print() on dirhandle STDIN?)
100 # pp_hot.c [pp_rv2av]
101 use warnings 'uninitialized' ;
104 no warnings 'uninitialized' ;
107 Use of uninitialized value in array dereference at - line 4.
109 # pp_hot.c [pp_rv2hv]
110 use warnings 'uninitialized' ;
113 no warnings 'uninitialized' ;
116 Use of uninitialized value in hash dereference at - line 4.
118 # pp_hot.c [pp_aassign]
119 use warnings 'misc' ;
120 my %X ; %X = (1,2,3) ;
122 my %Y ; %Y = (1,2,3) ;
124 Odd number of elements in hash assignment at - line 3.
126 # pp_hot.c [pp_aassign]
127 use warnings 'misc' ;
128 my %X ; %X = [1 .. 3] ;
130 my %Y ; %Y = [1 .. 3] ;
132 Reference found where even-sized list expected at - line 3.
134 # pp_hot.c [Perl_do_readline]
135 use warnings 'closed' ;
136 close STDIN ; $a = <STDIN> ;
137 opendir STDIN, "." ; $a = <STDIN> ;
139 no warnings 'closed' ;
140 opendir STDIN, "." ; $a = <STDIN> ;
143 readline() on closed filehandle STDIN at - line 3.
144 readline() on closed filehandle STDIN at - line 4.
145 (Are you trying to call readline() on dirhandle STDIN?)
147 # pp_hot.c [Perl_do_readline]
149 my $file = "./xcv" ; unlink $file ;
150 open (FH, ">./xcv") ;
156 Filehandle FH opened only for output at - line 5.
158 # pp_hot.c [Perl_sub_crush_depth]
159 use warnings 'recursion' ;
165 local $SIG{__WARN__} = sub {
166 die "ok\n" if $_[0] =~ /^Deep recursion on subroutine "main::fred"/
173 # pp_hot.c [Perl_sub_crush_depth]
174 no warnings 'recursion' ;
180 local $SIG{__WARN__} = sub {
181 die "ok\n" if $_[0] =~ /^Deep recursion on subroutine "main::fred"/
188 # pp_hot.c [Perl_sub_crush_depth]
189 use warnings 'recursion' ;
197 Deep recursion on anonymous subroutine at - line 5.
199 # pp_hot.c [Perl_sub_crush_depth]
200 no warnings 'recursion' ;
209 # pp_hot.c [pp_concat]
213 unless ($Config{ccflags} =~ /Y2KWARN/) {
214 print "SKIPPED\n# perl not built with -DPERL_Y2KWARN";
221 $x = "19" . $yy . "\n";
223 $x = "319" . $yy . "\n";
226 $x = "19" . $yy . "\n";
228 Possible Y2K bug: about to append an integer to '19' at - line 12.
229 Possible Y2K bug: about to append an integer to '19' at - line 13.