/usr/lib/x86_64-linux-gnu/perl5/5.20/Math/Geometry/leak-test.pl is in libmath-geometry-voronoi-perl 1.3-2+b2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | use strict;
use warnings;
use blib;
use Math::Geometry::Voronoi;
my $n = shift || 1000;
my @points;
for (1 .. $n) {
push @points, [ rand(), rand() ];
}
$|++;
while (1) {
my $geo = Math::Geometry::Voronoi->new(points => \@points);
my $result = $geo->compute();
#use Devel::Size qw(size total_size);
#print "OBJ SIZE: " . total_size($geo);
#print "RESULT SIZE: " . total_size($result);
#print "DATA SIZE: " . total_size(\@points);
print ".";
}
|