equal
deleted
inserted
replaced
6 use SI::tools; |
6 use SI::tools; |
7 |
7 |
8 sub dump($\%) { |
8 sub dump($\%) { |
9 my ($file, $devs) = @_; |
9 my ($file, $devs) = @_; |
10 |
10 |
11 ### $devs |
|
12 use Data::Dumper; |
|
13 print Dumper $devs; |
|
14 exit; |
|
15 |
|
16 my %volume = %{$devs->{volume}}; |
11 my %volume = %{$devs->{volume}}; |
17 |
12 |
18 foreach my $v ( grep { $volume{$_}{type} ~~ /^ext/ } keys %volume ) { |
13 foreach my $v ( grep { $volume{$_}{type} ~~ /^ext/ } keys %volume ) { |
19 verbose("dumping $v\n"); |
14 verbose("dumping $v\n"); |
|
15 ### v: $volume{$v} |
20 } |
16 } |
21 } |
17 } |
22 |
18 |
23 1; |
19 1; |
24 |
20 |