summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table/raw.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-03-28 01:58:50 +0100
committerThomas Backlund <tmb@mageia.org>2015-03-30 15:00:47 +0259
commit0bc75bac4fd3c0599f05f556326dfd84ee39c842 (patch)
tree5f961f467114b6bfcb025bf56c3558b13503d855 /perl-install/partition_table/raw.pm
parent6b6936b1b6937bc3f83c38fd497cc67ab71dde89 (diff)
downloaddrakx-0bc75bac4fd3c0599f05f556326dfd84ee39c842.tar
drakx-0bc75bac4fd3c0599f05f556326dfd84ee39c842.tar.gz
drakx-0bc75bac4fd3c0599f05f556326dfd84ee39c842.tar.bz2
drakx-0bc75bac4fd3c0599f05f556326dfd84ee39c842.tar.xz
drakx-0bc75bac4fd3c0599f05f556326dfd84ee39c842.zip
better fix for too corrupted partition table
Diffstat (limited to 'perl-install/partition_table/raw.pm')
-rw-r--r--perl-install/partition_table/raw.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm
index 11bbbe59c..7b4e7d5cf 100644
--- a/perl-install/partition_table/raw.pm
+++ b/perl-install/partition_table/raw.pm
@@ -242,7 +242,7 @@ sub read_primary {
my ($hd) = @_;
my ($pt, $info) = eval { $hd->read_one(0) };
- @$pt or return;
+ $pt or return;
my $primary = partition_table::raw::pt_info_to_primary($hd, $pt, $info);
$hd->{primary} = $primary;
undef $hd->{extended};