diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-07-24 10:26:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-07-24 10:26:06 +0000 |
| commit | 3cf3e2f2afd279dad95082ee81f3f83516024b27 (patch) | |
| tree | 1d73d53ac3deaae5ae2f8c12f5d501e8ffa7f28e /perl-install/partition_table.pm | |
| parent | d97b226e3049c136401416aaceaba39587cd0605 (diff) | |
| download | drakx-backup-do-not-use-3cf3e2f2afd279dad95082ee81f3f83516024b27.tar drakx-backup-do-not-use-3cf3e2f2afd279dad95082ee81f3f83516024b27.tar.gz drakx-backup-do-not-use-3cf3e2f2afd279dad95082ee81f3f83516024b27.tar.bz2 drakx-backup-do-not-use-3cf3e2f2afd279dad95082ee81f3f83516024b27.tar.xz drakx-backup-do-not-use-3cf3e2f2afd279dad95082ee81f3f83516024b27.zip | |
no_comment
Diffstat (limited to 'perl-install/partition_table.pm')
| -rw-r--r-- | perl-install/partition_table.pm | 9 |
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; } |