One more debugging statement left in

2026-07-11 08:04:25 +00:00 · 2012-05-19 21:03:24 +02:00
parent a981ac5c8e
commit 9f21d5b3c2
1 changed files with 1 additions and 1 deletions
@@ -236,7 +236,7 @@ sub polyline_lines {
 }

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