From e9fb31474e5e23cede37d7dbda716eae8db41084 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 28 Jul 2004 03:07:30 +0000
Subject: remove small ugly typo

---
 perl-install/fs/type.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm
index 90d2f3ad0..80116b51c 100644
--- a/perl-install/fs/type.pm
+++ b/perl-install/fs/type.pm
@@ -238,7 +238,7 @@ sub set_type_subpart {
     } elsif (exists $subpart->{pt_type}) {
 	set_pt_type($part, $subpart->{pt_type});
     } elsif (exists $subpart->{fs_type}) {
-	set_pt_type($part, $subpart->{fs_type});
+	set_fs_type($part, $subpart->{fs_type});
     } else {
 	log::l("ERROR: (set_type_subpart) subpart has no type");
     }
-- 
cgit v1.2.1