diff options
| author | Wouter Coekaerts <coekie@irssi.org> | 2004-10-06 20:11:26 +0000 |
|---|---|---|
| committer | coekie <coekie@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2004-10-06 20:11:26 +0000 |
| commit | 64c6af78651571392e999d00d1e76c8384434248 (patch) | |
| tree | 1171224786cf9a79745499ecfbcff365e1df7f94 /src/perl | |
| parent | 3beaacf9ee1e310589de2f5f889e2b82db2a9cd8 (diff) | |
| download | irssi-64c6af78651571392e999d00d1e76c8384434248.zip | |
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
Diffstat (limited to 'src/perl')
| -rw-r--r-- | src/perl/common/Core.xs | 2 |
1 files changed, 2 insertions, 0 deletions
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; } |