From 8f56530321e66cb1c1180550b1d25bfe305837fe Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 27 Mar 2015 21:51:13 +0100
Subject: really fix retrieving swap partition type

Thomas rushed to push before I run perl_checker... :-(
---
 perl-install/partition_table/gpt.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/partition_table/gpt.pm')

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] = $_;
     }
 
-- 
cgit v1.2.1