From 32107d99dbb23f635a2c1665eedf250d7ecad852 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Wed, 5 Jan 2011 13:05:28 -0600 Subject: use correct scalar test (reported by Roland van Ipenburg) --- XS.xs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'XS.xs') diff --git a/XS.xs b/XS.xs index 5957b1a..a32ca45 100644 --- a/XS.xs +++ b/XS.xs @@ -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: -- cgit v1.2.3-54-g00ecf