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 Read 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
47 use warnings 'unopened' ;
50 no warnings 'unopened' ;
53 Filehandle main::abc never opened at - line 4.
60 open(FOO, ">&STDOUT") and print <FOO>;
63 ####################################################################
64 # The next test is known to fail on some systems (Linux/BSD+glibc, #
65 # NeXT among others. glibc should be fixed in the next version, #
66 # but it appears other platforms have little hope. We skip it for #
67 # now (on the grounds that it is "just" a warning). #
68 ####################################################################
73 Filehandle main::STDIN opened only for input at - line 3.
74 Filehandle main::STDOUT opened only for output at - line 4.
75 Filehandle main::STDERR opened only for output at - line 5.
76 Filehandle main::FOO opened only for output at - line 6.
77 Filehandle main::STDERR opened only for output at - line 7.
78 Filehandle main::FOO opened only for output at - line 8.
81 use warnings 'closed' ;
84 no warnings 'closed' ;
87 print on closed filehandle main::STDIN at - line 4.
90 use warnings 'uninitialized' ;
93 no warnings 'uninitialized' ;
96 Use of uninitialized value at - line 4.
99 use warnings 'uninitialized' ;
102 no warnings 'uninitialized' ;
105 Use of uninitialized value at - line 4.
107 # pp_hot.c [pp_aassign]
108 use warnings 'unsafe' ;
109 my %X ; %X = (1,2,3) ;
110 no warnings 'unsafe' ;
111 my %Y ; %Y = (1,2,3) ;
113 Odd number of elements in hash assignment at - line 3.
115 # pp_hot.c [pp_aassign]
116 use warnings 'unsafe' ;
117 my %X ; %X = [1 .. 3] ;
118 no warnings 'unsafe' ;
119 my %Y ; %Y = [1 .. 3] ;
121 Reference found where even-sized list expected at - line 3.
123 # pp_hot.c [Perl_do_readline]
124 use warnings 'closed' ;
125 close STDIN ; $a = <STDIN> ;
126 no warnings 'closed' ;
129 Read on closed filehandle main::STDIN at - line 3.
131 # pp_hot.c [Perl_do_readline]
133 my $file = "./xcv" ; unlink $file ;
134 open (FH, ">./xcv") ;
140 Filehandle main::FH opened only for output at - line 5.
142 # pp_hot.c [Perl_sub_crush_depth]
143 use warnings 'recursion' ;
149 local $SIG{__WARN__} = sub {
150 die "ok\n" if $_[0] =~ /^Deep recursion on subroutine "main::fred"/
157 # pp_hot.c [Perl_sub_crush_depth]
158 no warnings 'recursion' ;
164 local $SIG{__WARN__} = sub {
165 die "ok\n" if $_[0] =~ /^Deep recursion on subroutine "main::fred"/
172 # pp_hot.c [Perl_sub_crush_depth]
173 use warnings 'recursion' ;
181 Deep recursion on anonymous subroutine at - line 5.
183 # pp_hot.c [Perl_sub_crush_depth]
184 no warnings 'recursion' ;