3 Filehandle %s never opened
4 $f = $a = "abc" ; print $f $a
6 Filehandle %s opened only for input
10 print on closed filehandle %s
11 close STDIN ; print STDIN "abc" ;
14 my $a = undef ; my @b = @$a
17 my $a = undef ; my %b = %$a
19 Odd number of elements in hash list
22 Reference found where even-sized list expected
25 Read on closed filehandle <%s>
26 close STDIN ; $a = <STDIN>;
28 Deep recursion on subroutine \"%s\"
29 sub fred { fred() if $a++ < 200} fred()
31 Deep recursion on anonymous subroutine
32 $a = sub { &$a if $a++ < 200} &$a
36 use warning 'unopened' ;
40 Filehandle main::abc never opened at - line 4.
46 Filehandle main::STDIN opened only for input at - line 3.
49 use warning 'closed' ;
53 print on closed filehandle main::STDIN at - line 4.
56 use warning 'uninitialized' ;
60 Use of uninitialized value at - line 4.
63 use warning 'uninitialized' ;
67 Use of uninitialized value at - line 4.
70 use warning 'unsafe' ;
71 my %X ; %X = (1,2,3) ;
73 Odd number of elements in hash assignment at - line 3.
76 use warning 'unsafe' ;
77 my %X ; %X = [1 .. 3] ;
79 Reference found where even-sized list expected at - line 3.
82 use warning 'closed' ;
83 close STDIN ; $a = <STDIN> ;
85 Read on closed filehandle <STDIN> at - line 3.
88 use warning 'recursion' ;
96 Deep recursion on subroutine "main::fred" at - line 5.
99 use warning 'recursion' ;
107 Deep recursion on anonymous subroutine at - line 5.