summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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};