# HG changeset patch # User Etan Reisner # Date 1137406637 0 # Node ID a58540b16f419868f871619a4640123d982474e3 # Parent e0629444c455840f92aa1c8f4715e7005d6dae76 [gaim-migrate @ 15244] Add some subtypes to gaim_perl_sv_from_subtype. committer: Tailor Script diff -r e0629444c455 -r a58540b16f41 plugins/perl/perl-common.c --- a/plugins/perl/perl-common.c Mon Jan 16 09:30:11 2006 +0000 +++ b/plugins/perl/perl-common.c Mon Jan 16 10:17:17 2006 +0000 @@ -420,6 +420,9 @@ case GAIM_SUBTYPE_BLIST_CHAT: stash = "Gaim::BuddyList::Chat"; break; + case GAIM_SUBTYPE_BUDDY_ICON: + stash = "Gaim::Buddy::Icon"; + break; case GAIM_SUBTYPE_CONNECTION: stash = "Gaim::Connection"; break; @@ -429,6 +432,18 @@ case GAIM_SUBTYPE_PLUGIN: stash = "Gaim::Plugin"; break; + case GAIM_SUBTYPE_BLIST_NODE: + stash = "Gaim::BuddtList::Node"; + break; + case GAIM_SUBTYPE_CIPHER: + stash = "Gaim::Cipher"; + break; + case GAIM_SUBTYPE_STATUS: + stash = "Gaim::Status"; + break; + case GAIM_SUBTYPE_LOG: + stash = "Gaim::Log"; + break; default: stash = "Gaim"; /* ? */