From 3cf3e2f2afd279dad95082ee81f3f83516024b27 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 24 Jul 2000 10:26:06 +0000
Subject: no_comment

---
 perl-install/partition_table.pm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'perl-install/partition_table.pm')

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;
     }
-- 
cgit v1.2.1