comparison plugins/perl/perl-common.c @ 6897:69e0a3e29aa1

[gaim-migrate @ 7444] Added new stashes for value subtypes in perl. committer: Tailor Script <[e-mail]>

6896:7c6324124b66

{
	const char *stash = NULL;

	switch (gaim_value_get_subtype(value))
	{
		case GAIM_SUBTYPE_ACCOUNT:
			stash = "Gaim::Account";
			break;

		default:
			stash = "Gaim"; /* ? */
	}

6897:69e0a3e29aa1

{
	const char *stash = NULL;

	switch (gaim_value_get_subtype(value))
	{
		case GAIM_SUBTYPE_ACCOUNT:      stash = "Gaim::Account";          break;
		case GAIM_SUBTYPE_BLIST:        stash = "Gaim::BuddyList";        break;
		case GAIM_SUBTYPE_BLIST_BUDDY:  stash = "Gaim::BuddyList::Buddy"; break;
		case GAIM_SUBTYPE_BLIST_GROUP:  stash = "Gaim::BuddyList::Group"; break;
		case GAIM_SUBTYPE_BLIST_CHAT:   stash = "Gaim::BuddyList::Chat";  break;
		case GAIM_SUBTYPE_CONNECTION:   stash = "Gaim::Connection";       break;
		case GAIM_SUBTYPE_CONVERSATION: stash = "Gaim::Conversation";     break;
		case GAIM_SUBTYPE_CONV_WINDOW:  stash = "Gaim::ConvWindow";       break;
		case GAIM_SUBTYPE_PLUGIN:       stash = "Gaim::Plugin";           break;

		default:
			stash = "Gaim"; /* ? */
	}