diff options
Diffstat (limited to 'contrib/perl5/xsutils.c')
| -rw-r--r-- | contrib/perl5/xsutils.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/contrib/perl5/xsutils.c b/contrib/perl5/xsutils.c index 0f5989b..b4161b0 100644 --- a/contrib/perl5/xsutils.c +++ b/contrib/perl5/xsutils.c @@ -253,6 +253,8 @@ usage: rv = ST(0); ST(0) = TARG; + if (SvGMAGICAL(rv)) + mg_get(rv); if (!(SvOK(rv) && SvROK(rv))) goto usage; sv = SvRV(rv); |
