3 Filehandle %s never opened [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 glob failed (child exited with status %d%s) [Perl_do_readline] <<TODO
38 Deep recursion on subroutine \"%s\" [Perl_sub_crush_depth]
39 sub fred { fred() if $a++ < 200} fred()
41 Deep recursion on anonymous subroutine [Perl_sub_crush_depth]
42 $a = sub { &$a if $a++ < 200} &$a
44 Possible Y2K bug: about to append an integer to '19' [pp_concat]
49 use warnings 'unopened' ;
52 no warnings 'unopened' ;
55 Filehandle main::abc never opened at - line 4.
62 open(FOO, ">&STDOUT") and print <FOO>;
65 #####################################################################
66 # The next test is known to fail on some systems (Linux+glibc, *BSD #
67 # NeXT among others. glibc and FreeBSD have been fixed, but it #
68 # appears other platforms have little hope. We skip it for now (on #
69 # the grounds that it is "just" a warning). #
70 #####################################################################
75 Filehandle main::STDIN opened only for input at - line 3.
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.
83 use warnings 'closed' ;
89 no warnings 'closed' ;
94 print() on closed filehandle main::STDIN at - line 4.
95 print() on closed filehandle main::STDIN at - line 6.
96 (Are you trying to call print() on dirhandle main::STDIN?)
99 use warnings 'uninitialized' ;
102 no warnings 'uninitialized' ;
105 Use of uninitialized value in array dereference at - line 4.
107 # pp_hot.c [pp_rv2hv]
108 use warnings 'uninitialized' ;
111 no warnings 'uninitialized' ;
114 Use of uninitialized value in hash dereference at - line 4.
116 # pp_hot.c [pp_aassign]
117 use warnings 'misc' ;
118 my %X ; %X = (1,2,3) ;
120 my %Y ; %Y = (1,2,3) ;
122 Odd number of elements in hash assignment at - line 3.
124 # pp_hot.c [pp_aassign]
125 use warnings 'misc' ;
126 my %X ; %X = [1 .. 3] ;
128 my %Y ; %Y = [1 .. 3] ;
130 Reference found where even-sized list expected at - line 3.
132 # pp_hot.c [Perl_do_readline]
133 use warnings 'closed' ;
134 close STDIN ; $a = <STDIN> ;
135 opendir STDIN, "." ; $a = <STDIN> ;
137 no warnings 'closed' ;
138 opendir STDIN, "." ; $a = <STDIN> ;
141 readline() on closed filehandle main::STDIN at - line 3.
142 readline() on closed filehandle main::STDIN at - line 4.
143 (Are you trying to call readline() on dirhandle main::STDIN?)
145 # pp_hot.c [Perl_do_readline]
147 my $file = "./xcv" ; unlink $file ;
148 open (FH, ">./xcv") ;
154 Filehandle main::FH opened only for output at - line 5.
156 # pp_hot.c [Perl_sub_crush_depth]
157 use warnings 'recursion' ;
163 local $SIG{__WARN__} = sub {
164 die "ok\n" if $_[0] =~ /^Deep recursion on subroutine "main::fred"/
171 # pp_hot.c [Perl_sub_crush_depth]
172 no warnings 'recursion' ;
178 local $SIG{__WARN__} = sub {
179 die "ok\n" if $_[0] =~ /^Deep recursion on subroutine "main::fred"/
186 # pp_hot.c [Perl_sub_crush_depth]
187 use warnings 'recursion' ;
195 Deep recursion on anonymous subroutine at - line 5.
197 # pp_hot.c [Perl_sub_crush_depth]
198 no warnings 'recursion' ;
207 # pp_hot.c [pp_concat]
211 unless ($Config{ccflags} =~ /Y2KWARN/) {
212 print "SKIPPED\n# perl not built with -DPERL_Y2KWARN";
219 $x = "19" . $yy . "\n";
221 $x = "319" . $yy . "\n";
224 $x = "19" . $yy . "\n";
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.