vovkasm/test-mem-grow.pl

## test-mem-grow.pl
#!perl

while (1) {
    my $o = bless {}, 'main';
    test({});
    $o->test;
}

sub test { &test2; }
sub test2 { ref($_[0]) && eval { $_[0]->isa(__PACKAGE__) }; }
	#!perl

	while (1) {
	my $o = bless {}, 'main';
	test({});
	$o->test;
	}

	sub test { &test2; }
	sub test2 { ref($_[0]) && eval { $_[0]->isa(__PACKAGE__) }; }