pidgin: 53303438: Patch from Zsombor Welker to expand the ...

[elb at pidgin.im]

-----------------------------------------------------------------
Revision: 53303438f1a2d586d17f7efc61cba0bee2329a25
Ancestor: e7b568313cd84adb8e24dcfd56c373fe3e331439
Author: elb at pidgin.im
Date: 2009-04-18T14:03:16
Branch: im.pidgin.pidgin
URL: http://d.pidgin.im/viewmtn/revision/info/53303438f1a2d586d17f7efc61cba0bee2329a25

Modified files:
        libpurple/plugins/perl/perl-common.c

ChangeLog: 

Patch from Zsombor Welker to expand the list of PurpleValue valid subtypes.

Fixes #8761

-------------- next part --------------
============================================================
--- libpurple/plugins/perl/perl-common.c	b2c1cda07f18d359367bf2ec17e8166de1f40576
+++ libpurple/plugins/perl/perl-common.c	f8b445f6b581da467f8f8a1f8f5351235c741665
@@ -403,7 +403,7 @@ purple_perl_sv_from_subtype(const Purple
 static SV *
 purple_perl_sv_from_subtype(const PurpleValue *value, void *arg)
 {
-	const char *stash = NULL;
+	const char *stash = "Purple"; /* ? */
 
 	switch (purple_value_get_subtype(value)) {
 		case PURPLE_SUBTYPE_ACCOUNT:
@@ -442,6 +442,9 @@ purple_perl_sv_from_subtype(const Purple
 		case PURPLE_SUBTYPE_STATUS:
 			stash = "Purple::Status";
 			break;
+		case PURPLE_SUBTYPE_SAVEDSTATUS:
+			stash = "Purple::SavedStatus";
+			break;
 		case PURPLE_SUBTYPE_LOG:
 			stash = "Purple::Log";
 			break;
@@ -451,11 +454,20 @@ purple_perl_sv_from_subtype(const Purple
 		case PURPLE_SUBTYPE_XMLNODE:
 			stash = "Purple::XMLNode";
 			break;
+ 		case PURPLE_SUBTYPE_USERINFO:
+ 			stash = "Purple::NotifyUserInfo";
+ 			break;
+ 		case PURPLE_SUBTYPE_STORED_IMAGE:
+ 			stash = "Purple::StoredImage";
+ 			break;
+ 		case PURPLE_SUBTYPE_CERTIFICATEPOOL:
+ 			stash = "Purple::Certificate::Pool";
+ 			break;
+ 		case PURPLE_SUBTYPE_UNKNOWN:
+ 			stash = "Purple::Unknown";
+ 			break;
+  	}
 
-		default:
-			stash = "Purple"; /* ? */
-	}
-
 	return sv_2mortal(purple_perl_bless_object(arg, stash));
 }