# HG changeset patch
# User Daniel Atallah <datallah@pidgin.im>
# Date 1213846976 0
# Node ID e32645a28cad91c1adb0f7721d88babe13a91738
# Parent  d05abf92a22a8de7cf254efbf8b7b180f2a48aaa
applied changes from 2072edddff2333b97848681a9a464e9722b5f059
             through 6f45eed99c94f8e63e46ad382a70c0c4e266b833

diff -r d05abf92a22a -r e32645a28cad libpurple/plugins/perl/perl-handlers.c
--- a/libpurple/plugins/perl/perl-handlers.c	Thu Jun 19 03:40:31 2008 +0000
+++ b/libpurple/plugins/perl/perl-handlers.c	Thu Jun 19 03:42:56 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;