Removed some useless and manifoldness warnings

This commit is contained in:
Alessandro Ranellucci 2012-02-17 16:31:39 +01:00
parent 94c1b043e3
commit 16850b63ed

View file

@ -447,7 +447,7 @@ sub edge_id {
my $self = shift;
my ($edge) = @_;
my @point_ids = map sprintf("%f,%f,%f", @$_), @$edge;
my @point_ids = map sprintf("%d,%d,%d", map $_ / epsilon, @$_), @$edge;
return join "-", sort @point_ids;
}