3 substr outside of string
4 $a = "ab" ; $a = substr($a, 4,5)
6 Attempt to use reference as lvalue in substr
7 $a = "ab" ; $b = \$a ; substr($b, 1,1) = $b
9 uninitialized in pp_rv2gv()
12 uninitialized in pp_rv2sv()
13 my $a = undef ; my $b = $$a
15 Odd number of elements in hash list
18 Invalid type in unpack: '%c
19 my $A = pack ("A,A", 1,2) ;
20 my @A = unpack ("A,A", "22") ;
22 Attempt to pack pointer to temporary value
25 Explicit blessing to '' (assuming package main)
28 Constant subroutine %s undefined <<<TODO
29 Constant subroutine (anonymous) undefined <<<TODO
33 Malformed UTF-8 character
37 use warnings 'substr' ;
40 no warnings 'substr' ;
44 substr outside of string at - line 4.
47 use warnings 'substr' ;
50 substr($b, 1,1) = "ab" ;
51 no warnings 'substr' ;
52 substr($b, 1,1) = "ab" ;
54 Attempt to use reference as lvalue in substr at - line 5.
57 use warnings 'uninitialized' ;
63 use warnings 'unsafe' ;
65 no warnings 'unsafe' ;
68 Odd number of elements in hash assignment at - line 3.
71 use warnings 'unsafe' ;
72 my @a = unpack ("A,A", "22") ;
73 my $a = pack ("A,A", 1,2) ;
74 no warnings 'unsafe' ;
75 my @b = unpack ("A,A", "22") ;
76 my $b = pack ("A,A", 1,2) ;
78 Invalid type in unpack: ',' at - line 3.
79 Invalid type in pack: ',' at - line 4.
82 use warnings 'uninitialized' ;
85 no warnings 'uninitialized' ;
88 Use of uninitialized value at - line 4.
91 use warnings 'unsafe' ;
92 sub foo { my $a = "a"; return $a . $a++ . $a++ }
93 my $a = pack("p", &foo) ;
94 no warnings 'unsafe' ;
95 my $b = pack("p", &foo) ;
97 Attempt to pack pointer to temporary value at - line 4.
100 use warnings 'unsafe' ;
102 no warnings 'unsafe' ;
105 Explicit blessing to '' (assuming package main) at - line 3.
112 Malformed UTF-8 character at - line 4.
115 use warnings 'utf8' ;
123 \x80 will produce malformed UTF-8 character; use \x{80} for that at - line 4.
124 \xff will produce malformed UTF-8 character; use \x{ff} for that at - line 4.
125 Malformed UTF-8 character at - line 5.