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

2026-07-24 10:05:52 +00:00 · 2012-05-19 17:57:38 +02:00
parent 882a022e3a
commit b246480535
10 changed files with 75 additions and 31 deletions
@@ -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] ]);
 }