From 4de1d5ff736c8faf92a577175d403cc338764e25 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 28 Jan 2008 17:24:04 +0000
Subject: - fix detecting existing LVMs (#31228)   (regression introduced in
 10.4.204 (?))

nb: great care must be taken to ensure lvm::init() is not called too soon
(maybe lvm::init should be called in fsedit to ensure this doesn't happen
again?)
---
 perl-install/install/NEWS                | 2 ++
 perl-install/partition_table/lvm.pm      | 1 -
 perl-install/partition_table/readonly.pm | 1 -
 3 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index c6c20e3cc..549480089 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- fix detecting existing LVMs (#31228)
+  (regression introduced in 10.4.204 (?))
 - fix ensuring X is launched on tty7 (cf #37087)
 - fix handling LVM VGs with "-" in the name (#37267)
 - call X with -nolisten tcp to avoid "security" issues (#18320)
diff --git a/perl-install/partition_table/lvm.pm b/perl-install/partition_table/lvm.pm
index 57dab0bfc..8a28a4c2a 100644
--- a/perl-install/partition_table/lvm.pm
+++ b/perl-install/partition_table/lvm.pm
@@ -10,7 +10,6 @@ our @ISA = qw(partition_table::readonly);
 use common;
 use partition_table::readonly;
 use fs::type;
-use lvm;
 
 sub _parts {
     my ($hd) = @_;
diff --git a/perl-install/partition_table/readonly.pm b/perl-install/partition_table/readonly.pm
index ec4e5cc49..f36b60e4a 100644
--- a/perl-install/partition_table/readonly.pm
+++ b/perl-install/partition_table/readonly.pm
@@ -8,7 +8,6 @@ our @ISA = qw(partition_table::raw);
 use common;
 use partition_table::raw;
 use fs::type;
-use lvm;
 
 sub initialize {
     my ($class, $hd, $parts) = @_;
-- 
cgit v1.2.1