diff -r 42c603eb6301 -r a1aee1136609 SI/dumper.pm --- a/SI/dumper.pm Sun Jan 17 16:40:08 2010 +0100 +++ b/SI/dumper.pm Mon Jan 18 20:35:27 2010 +0100 @@ -8,15 +8,11 @@ sub dump($\%) { my ($file, $devs) = @_; - ### $devs - use Data::Dumper; - print Dumper $devs; - exit; - my %volume = %{$devs->{volume}}; foreach my $v ( grep { $volume{$_}{type} ~~ /^ext/ } keys %volume ) { verbose("dumping $v\n"); + ### v: $volume{$v} } }