Make debug output conditional on $debug

PDLPorters · Mar 5, 2015 · 57b9c5b · 57b9c5b
1 parent 538f34a
commit 57b9c5b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Graphics/Graphics2D.pm b/Graphics/Graphics2D.pm
@@ -866,13 +866,13 @@ sub close_imag2d_window {
       }
    }
 
-   print STDERR "close_imag2d_window: started with  " . scalar(@imag2d_list) . " windows.\n";
+   print STDERR "close_imag2d_window: started with  " . scalar(@imag2d_list) . " windows.\n" if $debug;
    if ($found_it) {
       @imag2d_list = grep { $_->{window_id} != $win_id } @imag2d_list;
    } else {
       warn "close_imag2d_window: could not find open window\n";
    }
-   print STDERR "close_imag2d_window: finished with " . scalar(@imag2d_list) . " windows.\n";
+   print STDERR "close_imag2d_window: finished with " . scalar(@imag2d_list) . " windows.\n" if $debug;
 }
 
 #------------------------------------------------------------------------