diff options
| author | Jesse Luehrs <doy@tozt.net> | 2011-01-05 13:05:28 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-01-05 13:17:29 -0600 |
| commit | 32107d99dbb23f635a2c1665eedf250d7ecad852 (patch) | |
| tree | f8496668feff6ff6e5ae07ee830fc550ad5eb0e9 | |
| parent | d512020f7edd20384d1e7f9cce7c87fc31f18363 (diff) | |
| download | package-stash-xs-32107d99dbb23f635a2c1665eedf250d7ecad852.tar.gz package-stash-xs-32107d99dbb23f635a2c1665eedf250d7ecad852.zip | |
use correct scalar test (reported by Roland van Ipenburg)0.18
| -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: |