C:\>perl -MDevel::Leak -le"print Devel::Leak::NoteSV($handle); { my $x + = []; } print Devel::Leak::CheckSV($handle);" 5513 5513 C:\>perl -MO=Concise -e" { my $x = []; } a <@> leave[1 ref] vKP/REFC ->(end) 1 <0> enter ->2 2 <;> nextstate(main 3 -e:1) v ->3 9 <2> leaveloop vK/2 ->a 3 <{> enterloop(next->9 last->9 redo->4) v ->4 - <@> lineseq vK ->9 4 <;> nextstate(main 1 -e:1) v ->5 8 <2> sassign vKS/2 ->9 6 <@> anonlist sK* ->7 5 <0> pushmark s ->6 7 <0> padsv[$x:1,2] sRM*/LVINTRO ->8 -e syntax OK C:\>perl -MO=Concise -e" { my $x = []; 1} b <@> leave[1 ref] vKP/REFC ->(end) 1 <0> enter ->2 2 <;> nextstate(main 3 -e:1) v ->3 a <2> leaveloop vK/2 ->b 3 <{> enterloop(next->a last->a redo->4) v ->4 - <@> lineseq vKP ->a 4 <;> nextstate(main 1 -e:1) v ->5 8 <2> sassign vKS/2 ->9 6 <@> anonlist sK* ->7 5 <0> pushmark s ->6 7 <0> padsv[$x:1,2] sRM*/LVINTRO ->8 9 <;> nextstate(main 2 -e:1) v ->a - <0> ex-const v ->- -e syntax OK C:\>pmvers Devel::Leak 0.03 C:\>perl -v|grep buil This is perl, v5.8.9 built for MSWin32-x86-multi-thread Binary build 825 [288577] provided by ActiveState http://www.ActiveSta +te.com
In reply to Re^2: question about Devel::LeakTrace::Fast
by Anonymous Monk
in thread question about Devel::LeakTrace::Fast
by perl5ever
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |