summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS3
-rw-r--r--perl-install/install/NEWS3
-rw-r--r--perl-install/partition_table/gpt.pm2
3 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 0be5bf532..c6bb950de 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- diskdrake (GPT):
+ o really fix retrieving swap partition type
+
Version 16.73 - 27 March 2015
- diskdrake (GPT):
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 764164472..1ce139a87 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- GPT partitionning:
+ o really fix retrieving swap partition type
+
Version 16.73 - 27 March 2015
- GPT partitionning:
diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index 1ac296946..5bb1b93b6 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -118,7 +118,7 @@ sub read_one {
} elsif (c::get_partition_flag($hd->{file}, $_->{part_number}, 'RAID')) {
$_->{pt_type} = 0xfd;
}
- $part->{fs_type} = 'swap' if $part->{fs_type} eq 'linux-swap(v1)';
+ $_->{fs_type} = 'swap' if $_->{fs_type} eq 'linux-swap(v1)';
@pt[$_->{part_number}-1] = $_;
}