diff options
| author | Maarten Vanraes <alien@mageia.org> | 2016-02-07 16:58:35 +0100 |
|---|---|---|
| committer | Maarten Vanraes <alien@mageia.org> | 2016-05-14 09:25:24 +0200 |
| commit | 0151119830989cd6e1650afd3fbeeb9fb10807fe (patch) | |
| tree | ff8e80be801bf60a1e64c257c05a603560b46d75 /lib/ManaTools | |
| parent | 481aaa55f490b4732598099ea41a68a197713735 (diff) | |
| download | manatools-0151119830989cd6e1650afd3fbeeb9fb10807fe.tar manatools-0151119830989cd6e1650afd3fbeeb9fb10807fe.tar.gz manatools-0151119830989cd6e1650afd3fbeeb9fb10807fe.tar.bz2 manatools-0151119830989cd6e1650afd3fbeeb9fb10807fe.tar.xz manatools-0151119830989cd6e1650afd3fbeeb9fb10807fe.zip | |
Btrfs: use tools for btrfs external command
Diffstat (limited to 'lib/ManaTools')
| -rw-r--r-- | lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm index 1ce0e488..36a868d6 100644 --- a/lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm +++ b/lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm @@ -327,8 +327,8 @@ sub refresh { # btrfs subvolume list / -agcpuq # ID 264 gen 1090157 cgen 255 parent 5 top level 5 parent_uuid - uuid ab6d48f8-6d65-6b43-b792-dd31d93018be path <FS_TREE>/backup-@ - open (F, '-|', "/usr/sbin/btrfs subvolume list '$path' -agcpuq") or die('some error happened'); - while (my $line = <F>) { + my @lines = $self->tool_lines('btrfs', 'subvolume', 'list', "'$path'", '-agcpuq'); + for my $line (@lines) { # top level is 2 strings, so combine them, so that the fields can be nicely splitted my %fields = split(/[ \t\r\n]+/, $line =~ s'top level'top_level'r); # create the volume part @@ -349,7 +349,6 @@ sub refresh { $part->out_add($vol); push @{$subvols}, $vol; } - close F; return $subvols; } |