clean use XXX

This commit is contained in:
Jose Luis Perez Diez 2013-09-11 13:23:50 +02:00
parent 69a92c10f0
commit fdbd62e62d

View file

@ -657,7 +657,7 @@ sub _line_intersection2 {
# 2D
sub bounding_box {
my ($points) = @_;
use XXX; ZZZ "not" if ref($points->[0]) eq 'ARRAY';
my @x = map $_->x, @$points;
my @y = map $_->y, @$points; #,,
my @bb = (undef, undef, undef, undef);