Remove recursion warning for Douglas-Peucker

2012-06-24 16:37:59 +02:00 · 2012-06-24 16:37:59 +02:00 · a4dcbd62da
commit a4dcbd62da
parent f88f516c30
1 changed files with 1 additions and 0 deletions
--- a/lib/Slic3r/Geometry.pm
+++ b/lib/Slic3r/Geometry.pm
@ -787,6 +787,7 @@ sub shortest_path {

 sub douglas_peucker {
    my ($points, $tolerance) = @_;
+    no warnings "recursion";
    
    my $results = [];
    my $dmax = 0;