summaryrefslogtreecommitdiffstats
path: root/perl-install/patch/patch-LVM-PV-on-full-disk.pl
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/patch/patch-LVM-PV-on-full-disk.pl')
-rw-r--r--perl-install/patch/patch-LVM-PV-on-full-disk.pl14
1 files changed, 14 insertions, 0 deletions
diff --git a/perl-install/patch/patch-LVM-PV-on-full-disk.pl b/perl-install/patch/patch-LVM-PV-on-full-disk.pl
new file mode 100644
index 000000000..8f9060f5c
--- /dev/null
+++ b/perl-install/patch/patch-LVM-PV-on-full-disk.pl
@@ -0,0 +1,14 @@
+use fs::proc_partitions;
+package fs::proc_partitions;
+
+log::l("PATCH: not checking /proc/partitions for partition_table::lvm");
+
+my $real_compare = \&compare;
+undef *compare;
+*compare = sub {
+ my ($hd) = @_;
+
+ eval { $hd->isa('partition_table::lvm') } and return;
+
+ &$real_compare;
+};