Removed warning

This commit is contained in:
Alessandro Ranellucci 2012-02-21 14:31:51 +01:00
parent f2e1fe5241
commit aa7a5d6069

View File

@ -32,7 +32,7 @@ sub clone {
sub reverse { sub reverse {
my $self = shift; my $self = shift;
@$self = reverse @$self; @$self = CORE::reverse @$self;
} }
sub lines { sub lines {
@ -135,7 +135,7 @@ sub is_printable {
# for a distance equal to half of the extrusion width; # for a distance equal to half of the extrusion width;
# if no offset is possible, then polyline is not printable # if no offset is possible, then polyline is not printable
my $p = $self->clone; my $p = $self->clone;
@$p = reverse @$p if !Math::Clipper::is_counter_clockwise($p); @$p = CORE::reverse @$p if !Math::Clipper::is_counter_clockwise($p);
my $offsets = Math::Clipper::offset([$p], -(scale $Slic3r::flow_spacing / 2), $Slic3r::resolution * 100000, JT_MITER, 2); my $offsets = Math::Clipper::offset([$p], -(scale $Slic3r::flow_spacing / 2), $Slic3r::resolution * 100000, JT_MITER, 2);
return @$offsets ? 1 : 0; return @$offsets ? 1 : 0;
} }