3 Filehandle %s never opened
4 $f = $a = "abc" ; print $f $a
6 Filehandle %s opened only for input
9 Filehandle %s opened only for output
12 print on closed filehandle %s
13 close STDIN ; print STDIN "abc" ;
16 my $a = undef ; my @b = @$a
19 my $a = undef ; my %b = %$a
21 Odd number of elements in hash list
24 Reference found where even-sized list expected
27 Read on closed filehandle %s
28 close STDIN ; $a = <STDIN>;
30 Deep recursion on subroutine \"%s\"
31 sub fred { fred() if $a++ < 200} fred()
33 Deep recursion on anonymous subroutine
34 $a = sub { &$a if $a++ < 200} &$a
38 use warnings 'unopened' ;
41 no warnings 'unopened' ;
44 Filehandle main::abc never opened at - line 4.
51 open(FOO, ">&STDOUT") and print <FOO>;
57 ####################################################################
59 # This test is known to fail on Linux and *BSD systems with glibc. #
60 # The glibc development team is aware of the problem, and has #
61 # determined a fix for the next release of that library. #
62 ####################################################################
64 Filehandle main::STDIN opened only for input at - line 3.
65 Filehandle main::STDOUT opened only for output at - line 4.
66 Filehandle main::STDERR opened only for output at - line 5.
67 Filehandle main::FOO opened only for output at - line 6.
68 Filehandle main::STDERR opened only for output at - line 7.
69 Filehandle main::FOO opened only for output at - line 8.
70 Filehandle main::FOO opened only for output at - line 9.
73 use warnings 'closed' ;
76 no warnings 'closed' ;
79 print on closed filehandle main::STDIN at - line 4.
82 use warnings 'uninitialized' ;
85 no warnings 'uninitialized' ;
88 Use of uninitialized value at - line 4.
91 use warnings 'uninitialized' ;
94 no warnings 'uninitialized' ;
97 Use of uninitialized value at - line 4.
100 use warnings 'unsafe' ;
101 my %X ; %X = (1,2,3) ;
102 no warnings 'unsafe' ;
103 my %Y ; %Y = (1,2,3) ;
105 Odd number of elements in hash assignment at - line 3.
108 use warnings 'unsafe' ;
109 my %X ; %X = [1 .. 3] ;
110 no warnings 'unsafe' ;
111 my %Y ; %Y = [1 .. 3] ;
113 Reference found where even-sized list expected at - line 3.
116 use warnings 'closed' ;
117 close STDIN ; $a = <STDIN> ;
118 no warnings 'closed' ;
121 Read on closed filehandle main::STDIN at - line 3.
124 use warnings 'recursion' ;
130 local $SIG{__WARN__} = sub {
131 die "ok\n" if $_[0] =~ /^Deep recursion on subroutine "main::fred"/
139 no warnings 'recursion' ;
145 local $SIG{__WARN__} = sub {
146 die "ok\n" if $_[0] =~ /^Deep recursion on subroutine "main::fred"/
154 use warnings 'recursion' ;
162 Deep recursion on anonymous subroutine at - line 5.
165 no warnings 'recursion' ;