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

use partition_table;
package partition_table;

log::l("PATCH: looking for partition_table::lvm before partition_table::dos ");

undef *read_primary;
*read_primary = sub {
   my ($hd) = @_;

   #- it can be safely considered that the first sector is used to probe the partition table
   #- but other sectors (typically for extended partition ones) have to match this type!
       my @parttype = (
         if_(arch() =~ /^ia64/, 'gpt'),
         arch() =~ /^sparc/ ? ('sun', 'bsd') : ('lvm', 'dos', 'bsd', 'sun', 'mac'),
       );
       foreach ('empty', @parttype, 'unknown') {
           /unknown/ and die "unknown partition table format on disk " . $hd->{file};

               # perl_checker: require partition_table::bsd
               # perl_checker: require partition_table::dos
               # perl_checker: require partition_table::empty
               # perl_checker: require partition_table::lvm
               # perl_checker: require partition_table::gpt
               # perl_checker: require partition_table::mac
               # perl_checker: require partition_table::sun
               require "partition_table/$_.pm";
               bless $hd, "partition_table::$_";
               if ($hd->read_primary) {
                   log::l("found a $_ partition table on $hd->{file} at sector 0");
                   return 1;
               }
       }
   0;
};