From 634ccb33ab5218dfc38323b62c75bdd57fedff3a Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Sun, 9 Feb 2014 23:14:32 +0100
Subject: [PATCH] Fix regression in Config->setenv affecting post-processing
 scripts. Includes regression test

---
 lib/Slic3r/Config.pm |  2 +-
 t/config.t           | 20 ++++++++++++++++++++
 2 files changed, 21 insertions(+), 1 deletion(-)
 create mode 100644 t/config.t

diff --git a/lib/Slic3r/Config.pm b/lib/Slic3r/Config.pm
index 9b1a63939..93f3d8152 100644
--- a/lib/Slic3r/Config.pm
+++ b/lib/Slic3r/Config.pm
@@ -171,7 +171,7 @@ sub save {
 sub setenv {
     my $self = shift;
     
-    foreach my $opt_key (sort keys %$Options) {
+    foreach my $opt_key (@{$self->get_keys}) {
         $ENV{"SLIC3R_" . uc $opt_key} = $self->serialize($opt_key);
     }
 }
diff --git a/t/config.t b/t/config.t
new file mode 100644
index 000000000..c9af472c7
--- /dev/null
+++ b/t/config.t
@@ -0,0 +1,20 @@
+use Test::More tests => 1;
+use strict;
+use warnings;
+
+BEGIN {
+    use FindBin;
+    use lib "$FindBin::Bin/../lib";
+}
+
+use Slic3r;
+use Slic3r::Test;
+
+{
+    my $config = Slic3r::Config->new_from_defaults;
+    $config->set('layer_height', 0.123);
+    $config->setenv;
+    is $ENV{SLIC3R_LAYER_HEIGHT}, '0.123', 'setenv';
+}
+
+__END__