diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-03-27 21:51:13 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-03-27 21:52:45 +0100 |
| commit | 8f56530321e66cb1c1180550b1d25bfe305837fe (patch) | |
| tree | c8eec3d34dce7641096211525d9627f68ac65e9d /perl-install | |
| parent | 61e26fe55b40b73be82de5f2f6a8626f8bbcbfc6 (diff) | |
| download | drakx-8f56530321e66cb1c1180550b1d25bfe305837fe.tar drakx-8f56530321e66cb1c1180550b1d25bfe305837fe.tar.gz drakx-8f56530321e66cb1c1180550b1d25bfe305837fe.tar.bz2 drakx-8f56530321e66cb1c1180550b1d25bfe305837fe.tar.xz drakx-8f56530321e66cb1c1180550b1d25bfe305837fe.zip | |
really fix retrieving swap partition type
Thomas rushed to push before I run perl_checker... :-(
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 3 | ||||
| -rw-r--r-- | perl-install/install/NEWS | 3 | ||||
| -rw-r--r-- | perl-install/partition_table/gpt.pm | 2 |
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] = $_; } |