diff --git a/lib/Slic3r/Geometry.pm b/lib/Slic3r/Geometry.pm
index 120bf02a0..1b873ce17 100644
--- 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;