# HG changeset patch
# User Sean Egan <seanegan@gmail.com>
# Date 1033349348 0
# Node ID 163205125ee2fb97e48426036451ec06bb4c7a97
# Parent  bdd0bebd2d04973cf0ddad78081fa1ea54b70df2
[gaim-migrate @ 3671]
perl fix

committer: Tailor Script <tailor@pidgin.im>

diff -r bdd0bebd2d04 -r 163205125ee2 src/perl.c
--- a/src/perl.c	Mon Sep 30 01:05:18 2002 +0000
+++ b/src/perl.c	Mon Sep 30 01:29:08 2002 +0000
@@ -954,10 +954,10 @@
 		data = handler->data;
 		if (!strcmp(event_name(event), data->event_type)) {
 			handler_return = execute_perl(data->handler_name, buf);
-			if (SvIV(handler_return)) {
+			if (handler_return) {
 				if (buf)
 					g_free(buf);
-				return SvIV(handler_return);
+				return handler_return;
 			}
 		}
 	}