#!perl -w
use strict;
use Test::LeakTrace::Script -lines;
use Scalar::Util qw(weaken);
{
my %a;
my %b;
$a{b} = \%b;
$b{a} = \%a;
}
print "done.\n";
#!perl -w
use strict;
use Test::LeakTrace::Script -lines;
use Scalar::Util qw(weaken);
{
my %a;
my %b;
$a{b} = \%b;
$b{a} = \%a;
}
print "done.\n";