zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-11 12:53:42 +02:00
Code Issues Projects Releases Packages Wiki Activity

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
commit 64c6af7865
1 changed files with 2 additions and 0 deletions
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));
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;
}