From aa7a5d6069c038e6b89c839249270cacfef4ec33 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Tue, 21 Feb 2012 14:31:51 +0100
Subject: [PATCH] Removed warning

---
 lib/Slic3r/Polygon.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Slic3r/Polygon.pm b/lib/Slic3r/Polygon.pm
index caed2ff4b..f515b5587 100644
--- a/lib/Slic3r/Polygon.pm
+++ b/lib/Slic3r/Polygon.pm
@@ -32,7 +32,7 @@ sub clone {
 
 sub reverse {
     my $self = shift;
-    @$self = reverse @$self;
+    @$self = CORE::reverse @$self;
 }
 
 sub lines {
@@ -135,7 +135,7 @@ sub is_printable {
     # for a distance equal to half of the extrusion width;
     # if no offset is possible, then polyline is not printable
     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);
     return @$offsets ? 1 : 0;
 }