# HG changeset patch
# User Ankit Vani <a@nevitus.org>
# Date 1374058584 -19800
# Node ID aa65e5a9f2effc101709c76a4edc10435b71a936
# Parent  f32e0ac2813eafb780ebfa3ef2014c7a19324f83
Replace PURPLE_TYPE_BUDDY_LIST with PURPLE_TYPE_CONTACT where it was intended.

diff -r f32e0ac2813e -r aa65e5a9f2ef libpurple/plugins/perl/perl-common.c
--- a/libpurple/plugins/perl/perl-common.c	Wed Jul 17 05:02:07 2013 +0530
+++ b/libpurple/plugins/perl/perl-common.c	Wed Jul 17 16:26:24 2013 +0530
@@ -392,7 +392,6 @@
 		case G_TYPE_UINT64:  return (void *)SvUV(sv);
 		case G_TYPE_STRING:  return g_strdup(SvPVutf8_nolen(sv));
 		case G_TYPE_POINTER: return (void *)SvIV(sv);
-		case G_TYPE_BOXED:   return (void *)SvIV(sv);
 	}
 
 	return NULL;
@@ -405,8 +404,8 @@
 
 	if (type == PURPLE_TYPE_ACCOUNT)
 		stash = "Purple::Account";
-	else if (type == PURPLE_TYPE_BUDDY_LIST)
-		stash = "Purple::BuddyList";
+	else if (type == PURPLE_TYPE_CONTACT)
+		stash = "Purple::BuddyList::Contact";
 	else if (type == PURPLE_TYPE_BUDDY)
 		stash = "Purple::BuddyList::Buddy";
 	else if (type == PURPLE_TYPE_GROUP)