diff options
| -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; } |