equal
deleted
inserted
replaced
1 package SI::ptable; |
1 package SI::ptable; |
|
2 |
|
3 use if $ENV{DEBUG} ~~ /ptable|all/ => qw(Smart::Comments); |
2 |
4 |
3 use strict; |
5 use strict; |
4 use warnings; |
6 use warnings; |
5 use File::Find; |
7 use File::Find; |
6 use IO::File; |
8 use IO::File; |
7 |
9 |
8 use if $ENV{DEBUG} ~~ /ptable|all/ => qw(Smart::Comments); |
|
9 |
10 |
10 use SI::tools; |
11 use SI::tools; |
11 $ENV{LC_ALL} = "C"; |
12 $ENV{LC_ALL} = "C"; |
12 |
13 |
13 sub volumes($\%) { |
14 sub volumes($\%) { |
42 next if not $current; |
43 next if not $current; |
43 push @{$devs->{disk}{$current}{pt}}, $_; |
44 push @{$devs->{disk}{$current}{pt}}, $_; |
44 print $of "$_\n"; |
45 print $of "$_\n"; |
45 |
46 |
46 if (/^(\/dev\/\S+)\s*:/) { |
47 if (/^(\/dev\/\S+)\s*:/) { |
47 $devs->{volume}{$1} = undef; |
48 $devs->{volume}{$1} = {}; |
48 } |
49 } |
49 |
50 |
50 } |
51 } |
51 |
52 |
52 ### $devs |
53 ### $devs |