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; };