branch | 2010-01-17 |
changeset 10 | 23dd30396607 |
parent 7 | 03ca6d811a17 |
child 12 | a1aee1136609 |
--- 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}};