changeset 11 | 42c603eb6301 |
parent 9 | 1a6f6cfc46ea |
parent 10 | 23dd30396607 |
child 12 | a1aee1136609 |
--- a/SI/tools.pm Sun Jan 17 00:03:04 2010 +0100 +++ b/SI/tools.pm Sun Jan 17 16:40:08 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(@_);