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 {
|
sub douglas_peucker {
|
||||||
my ($points, $tolerance) = @_;
|
my ($points, $tolerance) = @_;
|
||||||
|
no warnings "recursion";
|
||||||
|
|
||||||
my $results = [];
|
my $results = [];
|
||||||
my $dmax = 0;
|
my $dmax = 0;
|
||||||
|
|
Loading…
Reference in a new issue