# HG changeset patch
# User Daniel Atallah <daniel.atallah@gmail.com>
# Date 1213846976 0
# Node ID 1367fb4d56f1b555541ce27993fd37e9d0cf9d66
# Parent  25975a6a5b63de4dedef0ccc99cc0bb393a13110
applied changes from 2072edddff2333b97848681a9a464e9722b5f059
             through 6f45eed99c94f8e63e46ad382a70c0c4e266b833

diff -r 25975a6a5b63 -r 1367fb4d56f1 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;