| Current Path : /proc/thread-self/root/usr/share/doc/perl-Test-LeakTrace/example/ |
| Current File : //proc/thread-self/root/usr/share/doc/perl-Test-LeakTrace/example/test_fail.pl |
#!/usr/bin/perl -w
use strict;
use Test::More tests => 1;
use Test::LeakTrace;
no_leaks_ok{
diag "in not_leaked";
my @array;
push @array, \@array;
};