--- a/libpurple/plugins/perl/common/typemap	Wed Sep 04 21:05:17 2013 +0530
+++ b/libpurple/plugins/perl/common/typemap	Fri Sep 06 18:18:39 2013 +0530
@@ -152,7 +152,7 @@
 
 Purple::Xfer				T_PurpleObj
 Purple::XferType				T_IV
-Purple::XferStatusType			T_IV
+Purple::XferStatus			T_IV
 
 Purple::XMLNode				T_PurpleObj
 XMLNode::Type				T_IV