distort-stl: debugging, avoid a warning

[reprap-play.git] / distort-stl

diff --git a/distort-stl b/distort-stl
index b5ccb996f43f39860d1f172ccd5d145d39199e1e..68290c410a6ae4738d680d6409abd8f3464c008e 100755 (executable)
--- a/distort-stl
+++ b/distort-stl
@@ -32,7 +32,7 @@ use Data::Dumper;
 
 sub TAU () { M_PI * 2; }
 
-our $debug = $ENV{DISTORT_DEBUG};
+our $debug = $ENV{DISTORT_DEBUG} // 0 ;
 
 my $ps = $ENV{DISTORT_PS};
 if ($ps) {