diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-06 09:50:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-06 09:50:45 +0000 |
| commit | 03cdcb8c4ebeebfc89dafd8b9220d469f0be21ae (patch) | |
| tree | fc11ff983628c6c249a0ee1ddaffc67786a8c1e3 /perl-install | |
| parent | 22cbc5137e0f8318645a902bd69050da29a608cb (diff) | |
| download | drakx-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.pm | 6 |
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_$_"; |