From: Sean E. <sea...@us...> - 2002-09-30 01:29:11
|
Update of /cvsroot/gaim/gaim/src In directory usw-pr-cvs1:/tmp/cvs-serv26166/src Modified Files: perl.c Log Message: perl fix Index: perl.c =================================================================== RCS file: /cvsroot/gaim/gaim/src/perl.c,v retrieving revision 1.81 retrieving revision 1.82 diff -u -d -r1.81 -r1.82 --- perl.c 30 Sep 2002 01:05:15 -0000 1.81 +++ perl.c 30 Sep 2002 01:29:08 -0000 1.82 @@ -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; } } } |