diff options
author | Father Chrysostomos <sprout@cpan.org> | 2017-10-31 22:02:49 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2017-11-01 15:52:07 -0700 |
commit | 817794ed06753164373b1e73a0e98e885b1274ed (patch) | |
tree | b3c6d381d359c8254e5678376c6bad4822370e1c /vutil.c | |
parent | 498b84842835faa317bd30ea8a865ecb85dda258 (diff) | |
download | perl-817794ed06753164373b1e73a0e98e885b1274ed.tar.gz |
Revert "vutil.c: use new SvPVCLEAR and constant string friendly macros"
This reverts commit 7394beb1401a6ac5e5e19cff7f08486e5141126c.
This change to vutil.c is unnecessary and makes it differ needlessly
from the CPAN release (CPAN *is* upstream for this file), making syn-
chronisation harder.
Diffstat (limited to 'vutil.c')
-rw-r--r-- | vutil.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -491,10 +491,10 @@ Perl_new_version(pTHX_ SV *ver) ver = SvRV(ver); /* Begin copying all of the elements */ - if ( hv_existss(MUTABLE_HV(ver), "qv") ) + if ( hv_exists(MUTABLE_HV(ver), "qv", 2) ) (void)hv_stores(MUTABLE_HV(hv), "qv", newSViv(1)); - if ( hv_existss(MUTABLE_HV(ver), "alpha") ) + if ( hv_exists(MUTABLE_HV(ver), "alpha", 5) ) (void)hv_stores(MUTABLE_HV(hv), "alpha", newSViv(1)); { SV ** svp = hv_fetchs(MUTABLE_HV(ver), "width", FALSE); @@ -840,7 +840,7 @@ Perl_vnumify(pTHX_ SV *vs) Perl_croak(aTHX_ "Invalid version object"); /* see if various flags exist */ - if ( hv_existss(MUTABLE_HV(vs), "alpha") ) + if ( hv_exists(MUTABLE_HV(vs), "alpha", 5 ) ) alpha = TRUE; if (alpha) { @@ -978,7 +978,7 @@ Perl_vstringify(pTHX_ SV *vs) return &PL_sv_undef; } else { - if ( hv_existss(MUTABLE_HV(vs), "qv") ) + if ( hv_exists(MUTABLE_HV(vs), "qv", 2) ) return VNORMAL(vs); else return VNUMIFY(vs); |