From 01fea4d387679d6bc2cdfa2b21f2100d1ab3cbcc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 27 Mar 2015 21:40:49 +0100
Subject: fix retrieving ntfs partitions s/ntfs/ntfs-3g/

---
 perl-install/NEWS                   | 1 +
 perl-install/install/NEWS           | 2 ++
 perl-install/partition_table/gpt.pm | 1 +
 3 files changed, 4 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index c6bb950de..a99d354fb 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,4 +1,5 @@
 - diskdrake (GPT):
+  o fix retrieving ntfs partitions as ntfs-3g instead of ntfs
   o really fix retrieving swap partition type
 
 Version 16.73 - 27 March 2015
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 1ce139a87..b5cd59959 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,4 +1,5 @@
 - GPT partitionning:
+  o fix retrieving ntfs partitions as ntfs-3g instead of ntfs
   o really fix retrieving swap partition type
 
 Version 16.73 - 27 March 2015
@@ -8,6 +9,7 @@ Version 16.73 - 27 March 2015
     (regression from 16.33)
   o fix "I cannot read the partition table of device XXX, it is too corrupted"
   o fix retrieving LVM/RAID/swap partition type
+  o fix retrieving ntfs partitions as ntfs-3g instead of ntfs
   o fix tagging lvm/raid as "linux filesystem"
   o fix tagging ntfs-3g as "linux filesystem"
   o fix tagging swap as "linux filesystem"
diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index 5bb1b93b6..11cbe414d 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -119,6 +119,7 @@ sub read_one {
 	    $_->{pt_type} = 0xfd;
         }
         $_->{fs_type} = 'swap' if $_->{fs_type} eq 'linux-swap(v1)';
+        $_->{fs_type} = 'ntfs-3g' if $_->{fs_type} eq 'ntfs';
         @pt[$_->{part_number}-1] = $_;
     }
 
-- 
cgit v1.2.1