diff options
-rw-r--r-- | lib/ManaTools/Shared/disk_backend/Plugin/Swap.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Swap.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Swap.pm index fc3e51cb..ba54ae38 100644 --- a/lib/ManaTools/Shared/disk_backend/Plugin/Swap.pm +++ b/lib/ManaTools/Shared/disk_backend/Plugin/Swap.pm @@ -91,6 +91,7 @@ has '+tools' => ( #============================================================= override ('probe', sub { my $self = shift; + $self->D('probing for swap'); # check current swaps and create a Swap Part for each one # TODO: find the in device (create if needed?) open F, '</proc/swaps' or return 0; @@ -98,6 +99,7 @@ override ('probe', sub { <F>; while (my $line = <F>) { my @fields = split(/[ \t\r\n]+/, $line); + $self->D('in swap list, finding %s', $fields[0]); # look or create the part my $part = $self->parent->trypart(ManaTools::Shared::disk_backend::Part->CurrentState, sub { @@ -105,6 +107,7 @@ override ('probe', sub { my $parameters = shift; return ($part->path() eq $parameters->{path}); }, 'Swap', {path => $fields[0], plugin => $self, loaded => undef, saved => undef}); + $self->D("part $part: finding parent: "); # look for the parent part if not set if (!$part->has_link(undef, 'parent')) { @@ -115,8 +118,11 @@ override ('probe', sub { my $major = int (($dev - $minor) / 256); my @parents = $self->parent->findpartprop(undef, 'dev', $major .':'. $minor); $part->add_taglink($parents[0], 'parent') if (scalar(@parents) > 0); + $self->D("part $part: found a parent: $parents[0] with ". $parents[0]->label()); + my @children = $parents[0]->children(); } } + # TODO: make sure order is correct $part->prop('filename', $fields[0]); $part->prop('swaptype', $fields[1]); |