diff -r 57724af9660d -r c1cb4cd0543d libpurple/plugins/perl/perl-common.c
--- a/libpurple/plugins/perl/perl-common.c	Tue Jul 16 21:16:12 2013 +0530
+++ b/libpurple/plugins/perl/perl-common.c	Tue Jul 16 23:29:58 2013 +0530
@@ -1,6 +1,8 @@
-#include "debug.h"
+#include "perl-common.h"
 
-#include "perl-common.h"
+#include "cipher.h"
+#include "debug.h"
+#include "savedstatuses.h"
 
 extern PerlInterpreter *my_perl;
 
@@ -437,11 +439,11 @@
 		stash = "Purple::Xfer";
 	else if (type == PURPLE_TYPE_XMLNODE)
 		stash = "Purple::XMLNode";
-	else if (type == PURPLE_TYPE_USERINFO)
+	else if (type == PURPLE_TYPE_NOTIFY_USER_INFO)
  		stash = "Purple::NotifyUserInfo";
 	else if (type == PURPLE_TYPE_STORED_IMAGE)
  		stash = "Purple::StoredImage";
-	else if (type == PURPLE_TYPE_CERTIFICATEPOOL)
+	else if (type == PURPLE_TYPE_CERTIFICATE_POOL)
  		stash = "Purple::Certificate::Pool";
 
 	return sv_2mortal(purple_perl_bless_object(arg, stash));