This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Deparse ()[()]
authorFather Chrysostomos <sprout@cpan.org>
Fri, 4 Nov 2011 05:36:23 +0000 (22:36 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 4 Nov 2011 05:36:23 +0000 (22:36 -0700)
commit958ed56b56ac968f085804fdab7d5684be218657
treea2853c1fd52c1b765983e05398841af9814869da
parent18e3e9ce3c2cb062ac066447b50a74a4908c69f0
Deparse ()[()]

A pushmark doesn’t have to have a sibling:

$ ./perl -Ilib -MO=Concise -e '()[()]'
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
5     <2> lslice vK/2 ->6
-        <1> ex-list lK ->4
3           <0> pushmark s ->4
-           <0> stub lP ->-
-        <1> ex-list lK ->5
4           <0> pushmark s ->5            <-- look here!
-e syntax OK
dist/B-Deparse/Deparse.pm
dist/B-Deparse/t/deparse.t