aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
Code

Recognise a param of signal_emit from perl if it's an int

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3311 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Wouter Coekaerts 2004-10-06 20:11:26 +00:00 committed by coekie
parent 3beaacf9ee
commit 64c6af7865
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/perl/common/Core.xs
View File

@ -75,6 +75,8 @@ CODE:
p[n-1] = irssi_ref_object(ST(n)); p[n-1] = irssi_ref_object(ST(n));
else if (SvROK(ST(n))) else if (SvROK(ST(n)))
p[n-1] = (void *) SvIV((SV*)SvRV(ST(n))); p[n-1] = (void *) SvIV((SV*)SvRV(ST(n)));
else if (SvIOK(ST(n)))
p[n-1] = (void *)SvIV(ST(n));
else else
p[n-1] = NULL; p[n-1] = NULL;
} }