summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/partition_table.pm')
-rw-r--r--perl-install/partition_table.pm9
1 files changed, 2 insertions, 7 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 0ea3fad13..03a3c9624 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -13,6 +13,7 @@ use Data::Dumper;
use common qw(:common :system :functional);
+use partition_table_empty;
use partition_table_raw;
use partition_table_dos;
use partition_table_bsd;
@@ -371,18 +372,12 @@ sub read_one($$) {
my ($pt, $info);
#- SUN bioses may blank disk or refuse to load it if the partition is unknown.
my @parttype = arch() =~ /^sparc/ ? ('sun', 'bsd', 'unknown') : ('dos', 'bsd', 'sun', 'mac', 'unknown');
- foreach (@parttype) {
+ foreach ('empty', @parttype) {
/unknown/ and die "unknown partition table format";
eval {
bless $hd, "partition_table_$_";
($pt, $info) = $hd->read($sector);
log::l("found a $_ partition table on $hd->{file}");
- {
- foreach my $e (@$pt) {
- my $logtext = join(" ", map { "$_=$e->{$_}" } keys %$e);
- log::l("$logtext");
- }
- }
};
$@ or last;
}