Commit | Line | Data |
599cee73 |
1 | pp.c TODO |
2 | |
3 | substr outside of string |
4 | $a = "ab" ; $a = substr($a, 4,5) |
5 | |
6 | Attempt to use reference as lvalue in substr |
7 | $a = "ab" ; $b = \$a ; substr($b, 1,1) = $b |
8 | |
9 | uninitialized in pp_rv2gv() |
10 | my *b = *{ undef()} |
11 | |
12 | uninitialized in pp_rv2sv() |
13 | my $a = undef ; my $b = $$a |
14 | |
15 | Odd number of elements in hash list |
16 | my $a = { 1,2,3 } ; |
17 | |
18 | Invalid type in unpack: '%c |
19 | my $A = pack ("A,A", 1,2) ; |
20 | my @A = unpack ("A,A", "22") ; |
21 | |
22 | Attempt to pack pointer to temporary value |
23 | pack("p", "abc") ; |
24 | |
25 | Explicit blessing to '' (assuming package main) |
26 | bless \[], ""; |
27 | |
28 | Constant subroutine %s undefined <<< |
29 | Constant subroutine (anonymous) undefined <<< |
30 | |
31 | __END__ |
32 | # pp.c |
33 | use warning 'substr' ; |
34 | $a = "ab" ; |
35 | $a = substr($a, 4,5) |
36 | EXPECT |
37 | substr outside of string at - line 4. |
38 | ######## |
39 | # pp.c |
40 | use warning 'substr' ; |
41 | $a = "ab" ; |
42 | $b = \$a ; |
43 | substr($b, 1,1) = "ab" ; |
44 | EXPECT |
45 | Attempt to use reference as lvalue in substr at - line 5. |
46 | ######## |
47 | # pp.c |
48 | use warning 'uninitialized' ; |
49 | # TODO |
50 | EXPECT |
51 | |
52 | ######## |
53 | # pp.c |
54 | use warning 'unsafe' ; |
55 | my $a = { 1,2,3}; |
56 | EXPECT |
57 | Odd number of elements in hash assignment at - line 3. |
58 | ######## |
59 | # pp.c |
60 | use warning 'unsafe' ; |
61 | my @a = unpack ("A,A", "22") ; |
62 | my $a = pack ("A,A", 1,2) ; |
63 | EXPECT |
64 | Invalid type in unpack: ',' at - line 3. |
65 | Invalid type in pack: ',' at - line 4. |
66 | ######## |
67 | # pp.c |
68 | use warning 'uninitialized' ; |
69 | my $a = undef ; |
70 | my $b = $$a |
71 | EXPECT |
72 | Use of uninitialized value at - line 4. |
73 | ######## |
74 | # pp.c |
75 | use warning 'unsafe' ; |
76 | sub foo { my $a = "a"; return $a . $a++ . $a++ } |
77 | my $a = pack("p", &foo) ; |
78 | EXPECT |
79 | Attempt to pack pointer to temporary value at - line 4. |
80 | ######## |
81 | # pp.c |
82 | use warning 'unsafe' ; |
83 | bless \[], "" ; |
84 | EXPECT |
85 | Explicit blessing to '' (assuming package main) at - line 3. |