From 817794ed06753164373b1e73a0e98e885b1274ed Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Tue, 31 Oct 2017 22:02:49 -0700 Subject: 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. --- vutil.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'vutil.c') diff --git a/vutil.c b/vutil.c index c033820fa5..34c0b55d57 100644 --- a/vutil.c +++ b/vutil.c @@ -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); -- cgit v1.2.1