branch | 2010-01-17 |
changeset 10 | 23dd30396607 |
parent 7 | 03ca6d811a17 |
child 11 | 42c603eb6301 |
--- a/SI/tools.pm Sat Jan 16 23:53:50 2010 +0100 +++ b/SI/tools.pm Sun Jan 17 12:13:47 2010 +0100 @@ -1,10 +1,11 @@ package SI::tools; +use if $ENV{DEBUG} ~~ /tools|all/ => "Smart::Comments"; + use strict; use warnings; use base "Exporter"; our @EXPORT = qw(&run &verbose); -use if $ENV{DEBUG} ~~ /tools|all/ => "Smart::Comments"; sub run(@) { system(@_);