From 62bd33a766057a7ef8c0d91a4c31643d659febbd Mon Sep 17 00:00:00 2001 From: Alessandro Ranellucci <aar@cpan.org> Date: Sat, 9 Jun 2012 15:53:14 +0200 Subject: [PATCH] Fixed regression causing fatal errors. #429 --- lib/Slic3r/ExtrusionLoop.pm | 2 +- lib/Slic3r/ExtrusionPath.pm | 7 +------ 2 files changed, 2 insertions(+), 7 deletions(-) diff --git a/lib/Slic3r/ExtrusionLoop.pm b/lib/Slic3r/ExtrusionLoop.pm index 592f5d031..b13538eef 100644 --- a/lib/Slic3r/ExtrusionLoop.pm +++ b/lib/Slic3r/ExtrusionLoop.pm @@ -5,7 +5,7 @@ use Moo; has 'polygon' => ( is => 'rw', required => 1, - handles => [qw(is_printable nearest_point_to)], + handles => [qw(is_printable nearest_point_to reverse)], ); # see EXTR_ROLE_* constants in ExtrusionPath.pm diff --git a/lib/Slic3r/ExtrusionPath.pm b/lib/Slic3r/ExtrusionPath.pm index 5e946a5e4..6a2df2740 100644 --- a/lib/Slic3r/ExtrusionPath.pm +++ b/lib/Slic3r/ExtrusionPath.pm @@ -14,7 +14,7 @@ use Slic3r::Geometry qw(PI X Y epsilon deg2rad rotate_points); has 'polyline' => ( is => 'rw', required => 1, - handles => [qw(merge_continuous_lines lines length)], + handles => [qw(merge_continuous_lines lines length reverse)], ); # this integer represents the vertical thickness of the extrusion @@ -98,11 +98,6 @@ sub endpoints { return ($self->points->[0], $self->points->[-1]); } -sub reverse { - my $self = shift; - @{$self->points} = reverse @{$self->points}; -} - sub is_printable { 1 } sub split_at_acute_angles {