diff options
-rw-r--r-- | Changes | 1 | ||||
-rw-r--r-- | XS.xs | 6 |
2 files changed, 2 insertions, 5 deletions
@@ -1,6 +1,7 @@ Revision history for Package-Stash {{$NEXT}} + - more correct validity test for scalars (rafl, Roland van Ipenburg) 0.17 2010-11-16 - bah, get rid of extra junk in the tarball @@ -213,11 +213,7 @@ int _valid_for_type(SV *value, vartype_t type) switch (type) { case VAR_SCALAR: - return sv_type == SVt_NULL || - sv_type == SVt_IV || - sv_type == SVt_NV || - sv_type == SVt_PV || - sv_type == SVt_RV; + return SvROK(value) ? SvOK(SvRV(value)) : SvOK(value); case VAR_ARRAY: return sv_type == SVt_PVAV; case VAR_HASH: |