perl-install/patch/patch-LVM-PV-on-full-disk.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
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;
};