Deparse /$#a/ correctly
authorFather Chrysostomos <sprout@cpan.org>
Sun, 25 Dec 2011 01:54:16 +0000 (17:54 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 25 Dec 2011 03:14:24 +0000 (19:14 -0800)
commit36727b534b2c3bc6309920028fdbb8df5f8f8578
treee87bff3b62094c6a65fd68389b9c835badba8bd6
parentdb3abe521abb44011448508a58c8da53c407fb44
Deparse /$#a/ correctly

This is related to 4b58603b60.

This time it’s this op tree that pure_string can’t handle:

8     </> match() vK/RTIME ->9
7        <|> regcomp(other->8) sK/1 ->8
3           <1> regcreset sK/1 ->4
6              <1> av2arylen sK/1 ->7
5                 <1> rv2av[t2] sKR/1 ->6
4                    <#> gv[*a] s ->5

In writing a test for this, I triggered a case that 415d4c68d missed
(only $a and $b are exempt from strict vars, not @a and @b), so that
is fixed in the same commit.
dist/B-Deparse/Deparse.pm
dist/B-Deparse/t/deparse.t