diff -r 1a6f6cfc46ea -r 42c603eb6301 SI/dumper.pm --- a/SI/dumper.pm Sun Jan 17 00:03:04 2010 +0100 +++ b/SI/dumper.pm Sun Jan 17 16:40:08 2010 +0100 @@ -1,14 +1,17 @@ package SI::dumper; +use if $ENV{DEBUG} ~~ /dumper|all/ => "Smart::Comments"; use strict; use warnings; use SI::tools; -use if $ENV{DEBUG} ~~ /dumper|all/ => "Smart::Comments"; sub dump($\%) { my ($file, $devs) = @_; ### $devs + use Data::Dumper; + print Dumper $devs; + exit; my %volume = %{$devs->{volume}};