From 0151119830989cd6e1650afd3fbeeb9fb10807fe Mon Sep 17 00:00:00 2001
From: Maarten Vanraes <alien@mageia.org>
Date: Sun, 7 Feb 2016 16:58:35 +0100
Subject: Btrfs: use tools for btrfs external command

---
 lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'lib/ManaTools/Shared/disk_backend')

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;
 }
 
-- 
cgit v1.2.1