diff options
author | Maarten Vanraes <maarten@ba.be> | 2016-07-24 08:31:49 +0200 |
---|---|---|
committer | Maarten Vanraes <maarten@ba.be> | 2016-07-24 08:31:49 +0200 |
commit | f123b700fd61673d0dfb2ce72dc1864c537e0356 (patch) | |
tree | 7acd3693ad0f626ddbf1e168d31ed60b4380da10 /lib/ManaTools | |
parent | 401bad2098a7495032015b59099b0a5569d5105b (diff) | |
download | manatools-f123b700fd61673d0dfb2ce72dc1864c537e0356.tar manatools-f123b700fd61673d0dfb2ce72dc1864c537e0356.tar.gz manatools-f123b700fd61673d0dfb2ce72dc1864c537e0356.tar.bz2 manatools-f123b700fd61673d0dfb2ce72dc1864c537e0356.tar.xz manatools-f123b700fd61673d0dfb2ce72dc1864c537e0356.zip |
Fix debugging output
Diffstat (limited to 'lib/ManaTools')
-rw-r--r-- | lib/ManaTools/Shared/disk_backend/Plugin/Extfs.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Extfs.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Extfs.pm index 7087f91a..e7b4d9ed 100644 --- a/lib/ManaTools/Shared/disk_backend/Plugin/Extfs.pm +++ b/lib/ManaTools/Shared/disk_backend/Plugin/Extfs.pm @@ -112,7 +112,6 @@ override ('changedpart', sub { ## PROBE # check in the kernel partition table by reading /sys if ($partstate == ManaTools::Shared::disk_backend::Part->CurrentState) { - print STDERR "$self: called changepart for probing extfs on $part\n"; $self->D("$self: called changepart for probing extfs on $part"); # only BlockDevices for loading return 1 if (!$part->does('ManaTools::Shared::disk_backend::BlockDevice')); @@ -120,18 +119,15 @@ override ('changedpart', sub { # only devices that are present return 1 if ($part->has_prop('present') && !$part->prop('present')); - print STDERR "$self: called changepart for probing extfs on $part: size ". $part->prop('size') ."\n"; $self->D("$self: called changepart for probing extfs on $part: size ". $part->prop('size')); # only devices with positive size return 1 if ($part->prop('size') <= 0); - print STDERR "$self: called changepart for probing extfs on $part: devicepath /dev/". $part->devicepath() =~ s'^.+/''r ."\n"; # try with dump2fs if this is actually an extfs filesystem my %fields = $self->tool_fields('dumpe2fs', ':', '-h', '/dev/'. $part->devicepath() =~ s'^.+/''r); # get uuid my $uuid = $fields{'Filesystem UUID'}; - print STDERR "$self: called changepart for probing extfs on $part: uuid ". $uuid ."\n"; # this is probably not an extfs filesystem return undef if (!defined $uuid || !$uuid); @@ -152,6 +148,7 @@ override ('changedpart', sub { $p->prop('block_count', $fields{'Block count'}); $p->prop('size', $fields{'Block size'} * $fields{'Block count'}); + $self->D("$self: created Extfs Part $p, calling changepart now."); $p->changedpart($partstate); } |