Mercurial > pidgin.yaz
changeset 3573:163205125ee2
[gaim-migrate @ 3671]
perl fix
committer: Tailor Script <tailor@pidgin.im>
| author | Sean Egan <seanegan@gmail.com> |
|---|---|
| date | Mon, 30 Sep 2002 01:29:08 +0000 |
| parents | bdd0bebd2d04 |
| children | 2b43124e8475 |
| files | src/perl.c |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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; } } }