Wed, 17 Jul 2013 16:26:24 +0530
Replace PURPLE_TYPE_BUDDY_LIST with PURPLE_TYPE_CONTACT where it was intended.
| libpurple/plugins/perl/perl-common.c | file | annotate | diff | comparison | revisions |
--- 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)