$ diff -u \ > <( perl -MO=Concise,-exec -we'use Devel::LeakTrace::Fast; { my $x = []; } ' 2>&1 ) \ > <( perl -MO=Concise,-exec -we'use Devel::LeakTrace::Fast; { my $x = []; } 1' 2>&1 ) --- /dev/fd/63 2009-04-21 15:31:32.471371429 -0400 +++ /dev/fd/62 2009-04-21 15:31:32.475372857 -0400 @@ -9,4 +9,5 @@ 8 <0> padsv[$x:279,280] sRM*/LVINTRO 9 <2> sassign vKS/2 a <2> leaveloop vK/2 +b <;> nextstate(main 281 -e:1) v <-- only difference -b <@> leave[1 ref] vKP/REFC +c <@> leave[1 ref] vKP/REFC