summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-06 09:50:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-06 09:50:45 +0000
commit03cdcb8c4ebeebfc89dafd8b9220d469f0be21ae (patch)
treefc11ff983628c6c249a0ee1ddaffc67786a8c1e3 /perl-install
parent22cbc5137e0f8318645a902bd69050da29a608cb (diff)
downloaddrakx-03cdcb8c4ebeebfc89dafd8b9220d469f0be21ae.tar
drakx-03cdcb8c4ebeebfc89dafd8b9220d469f0be21ae.tar.gz
drakx-03cdcb8c4ebeebfc89dafd8b9220d469f0be21ae.tar.bz2
drakx-03cdcb8c4ebeebfc89dafd8b9220d469f0be21ae.tar.xz
drakx-03cdcb8c4ebeebfc89dafd8b9220d469f0be21ae.zip
cleanup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index a75c68cfa..c0446ee66 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -453,10 +453,10 @@ sub read_one($$) {
if (!$sector) {
my @parttype = (
if_(arch() =~ /^ia64/, 'gpt'),
- arch() =~ /^sparc/ ? ('sun', 'bsd', 'unknown') : ('dos', 'bsd', 'sun', 'mac', 'unknown'),
+ arch() =~ /^sparc/ ? ('sun', 'bsd') : ('dos', 'bsd', 'sun', 'mac'),
);
- foreach ('empty', @parttype) {
- /unknown/ and die "unknown partition table format";
+ foreach ('empty', @parttype, 'unknown') {
+ /unknown/ and die "unknown partition table format on disk " . $hd->{file};
eval {
require("partition_table_$_.pm");
bless $hd, "partition_table_$_";