1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
pp.c TODO
substr outside of string
$a = "ab" ; $b = substr($a, 4,5) ;
Attempt to use reference as lvalue in substr
$a = "ab" ; $b = \$a ; substr($b, 1,1) = $b
Use of uninitialized value in scalar dereference [pp_rv2sv()]
my $a = undef ; my $b = $$a
Odd number of elements in hash list
my $a = { 1,2,3 } ;
Explicit blessing to '' (assuming package main)
bless \[], "";
Constant subroutine %s undefined
sub foo () { 1 }; undef &foo;
Constant subroutine (anonymous) undefined
$foo = sub () { 3 }; undef &$foo;
__END__
# pp.c
use warnings 'substr' ;
$a = "ab" ;
$b = substr($a, 4,5) ;
no warnings 'substr' ;
$a = "ab" ;
$b = substr($a, 4,5) ;
EXPECT
substr outside of string at - line 4.
########
# pp.c
use warnings 'substr' ;
$a = "ab" ;
$b = \$a ;
substr($b, 1,1) = "ab" ;
$b = \$a;
substr($b, 1,1) = "\x{100}" ;
no warnings 'substr' ;
$b = \$a;
substr($b, 1,1) = "ab" ;
$b = \$a;
substr($b, 1,1) = "\x{100}" ;
EXPECT
Attempt to use reference as lvalue in substr at - line 5.
Attempt to use reference as lvalue in substr at - line 7.
########
# pp.c
use warnings 'misc' ;
@a = qw( a b c );
splice(@a, 4, 0, 'e') ;
@a = qw( a b c );
splice(@a, 4, 1) ;
@a = qw( a b c );
splice(@a, 4) ;
no warnings 'misc' ;
@a = qw( a b c );
splice(@a, 4, 0, 'e') ;
@a = qw( a b c );
splice(@a, 4, 1) ;
@a = qw( a b c );
splice(@a, 4) ;
EXPECT
splice() offset past end of array at - line 4.
splice() offset past end of array at - line 6.
########
# pp.c
use warnings 'uninitialized';
$x = undef; $y = $$x;
no warnings 'uninitialized' ;
$u = undef; $v = $$u;
EXPECT
Use of uninitialized value $x in scalar dereference at - line 3.
########
# pp.c
use warnings 'misc' ;
my $a = { 1,2,3};
no warnings 'misc' ;
my $b = { 1,2,3};
EXPECT
Odd number of elements in anonymous hash at - line 3.
########
# pp.c
use warnings 'misc' ;
bless \[], "" ;
no warnings 'misc' ;
bless \[], "" ;
EXPECT
Explicit blessing to '' (assuming package main) at - line 3.
########
# pp.c
use warnings 'misc';
sub foo () { 1 }
undef &foo;
no warnings 'misc';
sub bar () { 2 }
undef &bar;
EXPECT
Constant subroutine foo undefined at - line 4.
########
# pp.c
use utf8;
use open qw( :utf8 :std );
use warnings 'misc';
sub ฝᶱ () { 1 }
undef &ฝᶱ;
no warnings 'misc';
sub ƚ () { 2 }
undef &ƚ;
EXPECT
Constant subroutine ฝᶱ undefined at - line 6.
########
# pp.c
use warnings 'misc';
$foo = sub () { 3 };
undef &$foo;
no warnings 'misc';
$bar = sub () { 4 };
undef &$bar;
EXPECT
Constant subroutine (anonymous) undefined at - line 4.
########
# pp.c
use utf8 ;
$_ = "\x80 \xff" ;
reverse ;
EXPECT
|
