diff -r 03ca6d811a17 -r 23dd30396607 SI/dumper.pm --- a/SI/dumper.pm Sat Jan 16 23:53:50 2010 +0100 +++ b/SI/dumper.pm Sun Jan 17 12:13:47 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}};