summaryrefslogtreecommitdiffstats
path: root/perl-install
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
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')
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/install/NEWS3
-rw-r--r--perl-install/partition_table/raw.pm2
3 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index af6321f4d..cdc1b7c68 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- diskdrake:
+ o better fix for fail to read too corrupted partition table
- stage2:
o revert changes made in 16.70 for a better fix to mga#13894
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 8bc370db0..5d64b6d57 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- partitionning:
+ o better fix for fail to read too corrupted partition table
+
Version 16.74 - 27 March 2015
- GPT partitionning:
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};