Help for this page

Select Code to Download


  1. or download this
    $ perl -e'use Devel::LeakTrace::Fast; { my $x = []; }'
leaked SV(0x0x814ec28) from -e line 1
...
$ perl -e'use Devel::LeakTrace::Fast; { my $x = []; } 1;'

$
  2. or download this
    $ diff -u \
>    <( perl -MO=Concise,-exec -we'use Devel::LeakTrace::Fast; { my $x
+ = []; }  ' 2>&1 ) \
...
+b  <;> nextstate(main 281 -e:1) v        <-- only difference
-b  <@> leave[1 ref] vKP/REFC
+c  <@> leave[1 ref] vKP/REFC
  3. or download this
    $ perl -e'use Devel::LeakTrace::Fast; { my $x = []; $x }'

$