diff options
Diffstat (limited to 'src/perl/common')
| -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 2ca79e54..451a07e2 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -96,6 +96,8 @@ CODE: p[n] = irssi_ref_object(ST(n)); else if (SvROK(ST(n))) p[n] = (void *) SvIV((SV*)SvRV(ST(n))); + else if (SvIOK(ST(n))) + p[n] = (void *) SvIV(ST(n)); else p[n] = NULL; } |