summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-03-27 21:51:13 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2015-03-27 21:52:45 +0100
commit8f56530321e66cb1c1180550b1d25bfe305837fe (patch)
treec8eec3d34dce7641096211525d9627f68ac65e9d /perl-install/partition_table
parent61e26fe55b40b73be82de5f2f6a8626f8bbcbfc6 (diff)
downloaddrakx-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/partition_table')
-rw-r--r--perl-install/partition_table/gpt.pm2
1 files changed, 1 insertions, 1 deletions
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] = $_;
}