From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 25 Nov 2018 13:17:22 +0000 (+0000)
Subject: distort-stl: debugging, fix a perl warning
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=reprap-play.git;a=commitdiff_plain;h=c1500ad488993e64e90ddd5aeb58ce75d91a889e

distort-stl: debugging, fix a perl warning

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/distort-stl b/distort-stl
index 1f177dc..a470ae3 100755
--- a/distort-stl
+++ b/distort-stl
@@ -32,7 +32,7 @@ use Data::Dumper;
 
 sub TAU () { M_PI * 2; }
 
-my $ps = %ENV{DISTORT_PS};
+my $ps = $ENV{DISTORT_PS};
 if ($ps) {
     open PS, "> $ps" or die $!;
     print PS "%!\n";