changeset 23333:9776a2fc2370

A patch from Martijn van Beers to handle outgoing PURPLE_TYPE_SUBTYPE values in the Perl bindings. Fixes #3853 committer: Richard Laager <rlaager@wiktel.com>
author Martijn van Beers <martijn@eekeek.org>
date Mon, 09 Jun 2008 02:28:39 +0000
parents 19ab21882b38
children 2cc744b5925c
files libpurple/plugins/perl/perl-handlers.c
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/libpurple/plugins/perl/perl-handlers.c	Mon Jun 09 02:22:33 2008 +0000
+++ b/libpurple/plugins/perl/perl-handlers.c	Mon Jun 09 02:28:39 2008 +0000
@@ -383,6 +383,9 @@
 				case PURPLE_TYPE_BOXED:
 					*((void **)copy_args[i]) = (void *)SvIV(sv_args[i]);
 					break;
+				case PURPLE_TYPE_SUBTYPE:
+					*((void **)copy_args[i]) = purple_perl_ref_object(sv_args[i]);
+					break;
 
 				default:
 					break;