chiark / gitweb /
distort-stl: debugging, avoid a warning
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 25 Nov 2018 14:40:49 +0000 (14:40 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 25 Nov 2018 14:40:49 +0000 (14:40 +0000)
Use of uninitialized value $debug in numeric ge (>=) at ./distort-stl line 107.

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

index b5ccb99..68290c4 100755 (executable)
@@ -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) {