diff options
| -rw-r--r-- | perl-install/patch/patch-LVM-PV-on-full-disk.pl | 14 |
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; +}; |