From cc4a5412aeb1c730d2b62ea1d3156c00a5bb2573 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Fri, 27 Jun 2014 17:21:41 +0200
Subject: [PATCH] Fix regression in Quick Slice and Slice to SVG

---
 lib/Slic3r/GUI/MainFrame.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/Slic3r/GUI/MainFrame.pm b/lib/Slic3r/GUI/MainFrame.pm
index b6429aaba..1b047ee4f 100644
--- a/lib/Slic3r/GUI/MainFrame.pm
+++ b/lib/Slic3r/GUI/MainFrame.pm
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use utf8;
 
-use File::Basename qw/dirname/;
+use File::Basename qw(basename dirname);
 use List::Util qw(min);
 use Slic3r::Geometry qw(X Y Z);
 use Wx qw(:frame :bitmap :id :misc :notebook :panel :sizer :menu :dialog :filedialog
@@ -296,8 +296,11 @@ sub quick_slice {
             },
         );
         
+        # keep model around
+        my $model = Slic3r::Model->read_from_file($input_file);
+        
         $sprint->apply_config($config);
-        $sprint->set_model(Slic3r::Model->read_from_file($input_file));
+        $sprint->set_model($model);
         
         {
             my $extra = $self->extra_variables;