From 4772762d86804d24c9707079c5ad7287e68b0809 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 21 Feb 2002 14:55:02 +0000
Subject: ensure lvm tools don't need to be all installed at the same time

---
 perl-install/lvm.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install/lvm.pm')

diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm
index b82cb589c..327e07fe2 100644
--- a/perl-install/lvm.pm
+++ b/perl-install/lvm.pm
@@ -43,17 +43,22 @@ sub check {
 sub get_vg {
     my ($part) = @_;
     my $dev = expand_symlinks(devices::make($part->{device}));
+    install_any::check_prog ("pvdisplay") if $::isInstall;
     (split(':', `pvdisplay -c $dev`))[1];
 }
 
 sub update_size {
     my ($lvm) = @_;
+    install_any::check_prog ("vgdisplay") if $::isInstall;
     my @l = split(':', `vgdisplay -c -D $lvm->{LVMname}`);
     $lvm->{totalsectors} = ($lvm->{PE_size} = $l[12]) * $l[13];
 }
 
 sub get_lvs {
     my ($lvm) = @_;
+    install_any::check_prog ("vgdisplay") if $::isInstall;
+    my @l = `vgdisplay -v -D $lvm->{LVMname}`;
+    install_any::check_prog ("lvdisplay") if $::isInstall;
     $lvm->{primary}{normal} = 
       [
        map {
@@ -61,7 +66,7 @@ sub get_lvs {
 	   { device => $_, 
 	     type => $type || 0x83,
 	     size => (split(':', `lvdisplay -D -c /dev/$_`))[6] }
-       } map { m|^LV Name\s+/dev/(\S+)| ? $1 : () } `vgdisplay -v -D $lvm->{LVMname}`
+       } map { m|^LV Name\s+/dev/(\S+)| ? $1 : () } @l
       ];
 }
 
-- 
cgit v1.2.1