Commit | Line | Data |
599cee73 |
1 | pp.c TODO |
2 | |
3 | substr outside of string |
e476b1b5 |
4 | $a = "ab" ; $b = substr($a, 4,5) ; |
599cee73 |
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 | |
599cee73 |
18 | Explicit blessing to '' (assuming package main) |
19 | bless \[], ""; |
20 | |
0453d815 |
21 | Constant subroutine %s undefined <<<TODO |
22 | Constant subroutine (anonymous) undefined <<<TODO |
23 | |
599cee73 |
24 | __END__ |
25 | # pp.c |
4438c4b7 |
26 | use warnings 'substr' ; |
599cee73 |
27 | $a = "ab" ; |
e476b1b5 |
28 | $b = substr($a, 4,5) ; |
4438c4b7 |
29 | no warnings 'substr' ; |
0453d815 |
30 | $a = "ab" ; |
e476b1b5 |
31 | $b = substr($a, 4,5) ; |
599cee73 |
32 | EXPECT |
33 | substr outside of string at - line 4. |
34 | ######## |
35 | # pp.c |
4438c4b7 |
36 | use warnings 'substr' ; |
599cee73 |
37 | $a = "ab" ; |
38 | $b = \$a ; |
39 | substr($b, 1,1) = "ab" ; |
4438c4b7 |
40 | no warnings 'substr' ; |
0453d815 |
41 | substr($b, 1,1) = "ab" ; |
599cee73 |
42 | EXPECT |
43 | Attempt to use reference as lvalue in substr at - line 5. |
44 | ######## |
45 | # pp.c |
4438c4b7 |
46 | use warnings 'uninitialized' ; |
599cee73 |
47 | # TODO |
48 | EXPECT |
49 | |
50 | ######## |
51 | # pp.c |
e476b1b5 |
52 | use warnings 'misc' ; |
599cee73 |
53 | my $a = { 1,2,3}; |
e476b1b5 |
54 | no warnings 'misc' ; |
0453d815 |
55 | my $b = { 1,2,3}; |
599cee73 |
56 | EXPECT |
57 | Odd number of elements in hash assignment at - line 3. |
58 | ######## |
599cee73 |
59 | # pp.c |
e476b1b5 |
60 | use warnings 'misc' ; |
599cee73 |
61 | bless \[], "" ; |
e476b1b5 |
62 | no warnings 'misc' ; |
0453d815 |
63 | bless \[], "" ; |
599cee73 |
64 | EXPECT |
65 | Explicit blessing to '' (assuming package main) at - line 3. |
0453d815 |
66 | ######## |
67 | # pp.c |
68 | use utf8 ; |
69 | $_ = "\x80 \xff" ; |
70 | reverse ; |
71 | EXPECT |