changeset 23040:1367fb4d56f1

applied changes from 2072edddff2333b97848681a9a464e9722b5f059 through 6f45eed99c94f8e63e46ad382a70c0c4e266b833
author Daniel Atallah <daniel.atallah@gmail.com>
date Thu, 19 Jun 2008 03:42:56 +0000
parents 25975a6a5b63
children 5c60866e616f
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	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;