chiark / gitweb /
distort-stl: debugging, fix a perl warning
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 25 Nov 2018 13:17:22 +0000 (13:17 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 25 Nov 2018 13:17:22 +0000 (13:17 +0000)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
distort-stl

index 1f177dc..a470ae3 100755 (executable)
@@ -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";