From 63b12544ba16ec894591dc0b93b102e210f9e144 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 1 Jul 2005 06:28:04 +0000
Subject: create generic function get_pv_field()

---
 perl-install/lvm.pm | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm
index 165caa3ef..e21187a9f 100644
--- a/perl-install/lvm.pm
+++ b/perl-install/lvm.pm
@@ -63,10 +63,17 @@ sub check {
     1;
 }
 
+sub get_pv_field {
+    my ($pv, $field) = @_;
+    my $dev = expand_symlinks(devices::make($pv->{device}));
+    run_program::get_stdout('lvm2', 'pvs', '--noheadings', '--nosuffix', '-o', $field, $dev);
+}
+
 sub pv_to_vg {
-    my ($part) = @_;
-    my $dev = expand_symlinks(devices::make($part->{device}));
-    run_program::get_stdout('lvm2', 'pvs', '--noheadings', '-o', 'vg_name', $dev) =~ /(\S+)/ && $1;
+    my ($pv) = @_;
+    my $z = get_pv_field($pv, 'vg_name');
+    warn "$pv->{device} $z\n";
+    $z =~ /(\S+)/ && $1;
 }
 
 sub update_size {
-- 
cgit v1.2.1