From 9f5e48bd2c05d59a583a0194cd5128e071b63fb4 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Sat, 25 Feb 2012 17:40:30 +0100
Subject: [PATCH] Wrong optimization

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

diff --git a/lib/Slic3r/Geometry.pm b/lib/Slic3r/Geometry.pm
index 5c2fc447b..48e90aa88 100644
--- a/lib/Slic3r/Geometry.pm
+++ b/lib/Slic3r/Geometry.pm
@@ -630,10 +630,10 @@ sub bounding_box {
     my @x = (undef, undef);
     my @y = (undef, undef);
     for (@$points) {
-        $x[MIN] = $points->[X] if !defined $x[MIN] || $points->[X] < $x[MIN];
-        $x[MAX] = $points->[X] if !defined $x[MAX] || $points->[X] > $x[MAX];
-        $y[MIN] = $points->[Y] if !defined $y[MIN] || $points->[Y] < $y[MIN];
-        $y[MAX] = $points->[Y] if !defined $y[MAX] || $points->[Y] > $y[MAX];
+        $x[MIN] = $_->[X] if !defined $x[MIN] || $_->[X] < $x[MIN];
+        $x[MAX] = $_->[X] if !defined $x[MAX] || $_->[X] > $x[MAX];
+        $y[MIN] = $_->[Y] if !defined $y[MIN] || $_->[Y] < $y[MIN];
+        $y[MAX] = $_->[Y] if !defined $y[MAX] || $_->[Y] > $y[MAX];
     }
     
     return ($x[0], $y[0], $x[-1], $y[-1]);