From f603db5e843e5bf36c1ef45af8790d635680f7c0 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Sun, 13 Oct 2013 11:45:22 +0200
Subject: [PATCH] Fix --export-svg

---
 lib/Slic3r/Print.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Slic3r/Print.pm b/lib/Slic3r/Print.pm
index 314b0b851..557237db1 100644
--- a/lib/Slic3r/Print.pm
+++ b/lib/Slic3r/Print.pm
@@ -488,7 +488,7 @@ sub export_svg {
     $_->slice for @{$self->objects};
     
     my $fh = $params{output_fh};
-    if ($params{output_file}) {
+    if (!$fh) {
         my $output_file = $self->expanded_output_filepath($params{output_file});
         $output_file =~ s/\.gcode$/.svg/i;
         Slic3r::open(\$fh, ">", $output_file) or die "Failed to open $output_file for writing\n";