Remove recursion warning for Douglas-Peucker
This commit is contained in:
parent
f88f516c30
commit
a4dcbd62da
1 changed files with 1 additions and 0 deletions
|
@ -787,6 +787,7 @@ sub shortest_path {
|
|||
|
||||
sub douglas_peucker {
|
||||
my ($points, $tolerance) = @_;
|
||||
no warnings "recursion";
|
||||
|
||||
my $results = [];
|
||||
my $dmax = 0;
|
||||
|
|
Loading…
Reference in a new issue