From dff46e5d7ce58722f7ea272946fd21a161f47116 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 3 Mar 2001 19:26:37 +0000
Subject: small adaptation

---
 perl-install/standalone/diskdrake | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/standalone/diskdrake')

diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index bb3fb9197..f61a91abf 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -58,7 +58,7 @@ if ($>) {
 #    exit !$@;
 #}
 my $in = interactive_gtk->new;
-my $hds =
+my ($hds, $lvms) =
     catch_cdie { fsedit::hds([ detect_devices::hds() ], {}) }
     sub {
 	my ($err) = $@ =~ /(.*) at /;
@@ -67,6 +67,7 @@ my $hds =
 [_("I can't read your partition table, it's too corrupted for me :(
 I'll try to go on blanking bad partitions"), $err]);
     };
+push @$hds, @$lvms;
 
 $SIG{__DIE__} = sub { chomp (my $m = $_[0]); log::l("ERROR: $m") };
 my $fstab = [ fsedit::get_fstab(@$hds) ];
-- 
cgit v1.2.1