From 64c6af78651571392e999d00d1e76c8384434248 Mon Sep 17 00:00:00 2001 From: Wouter Coekaerts Date: Wed, 6 Oct 2004 20:11:26 +0000 Subject: Recognise a param of signal_emit from perl if it's an int git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3311 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/common/Core.xs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/perl') diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index 10cd3936..2ca79e54 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -75,6 +75,8 @@ CODE: p[n-1] = irssi_ref_object(ST(n)); else if (SvROK(ST(n))) p[n-1] = (void *) SvIV((SV*)SvRV(ST(n))); + else if (SvIOK(ST(n))) + p[n-1] = (void *)SvIV(ST(n)); else p[n-1] = NULL; } -- cgit v1.2.3