Massive reduction of memory usage (down to one third).

This commit is contained in:
Alessandro Ranellucci 2012-05-19 17:57:38 +02:00
parent 882a022e3a
commit b246480535
10 changed files with 75 additions and 31 deletions

View file

@ -236,7 +236,7 @@ sub polyline_lines {
}
sub polygon_lines {
my ($polygon) = @_;
my ($polygon) = @_;use XXX; ZZZ $polygon if !eval { @$polygon };
return polyline_lines([ @$polygon, $polygon->[0] ]);
}