# HG changeset patch
# User Martijn van Beers <martijn@eekeek.org>
# Date 1212978519 0
# Node ID 9776a2fc2370c61a0268178fc37bf7167d682e89
# Parent  19ab21882b389fad9a380362852e01bcfa30933b
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>

diff -r 19ab21882b38 -r 9776a2fc2370 libpurple/plugins/perl/perl-handlers.c
--- 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;