diff options
author | Yves Orton <demerphq@gmail.com> | 2016-10-19 11:14:27 +0200 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2016-10-19 13:28:02 +0200 |
commit | 7394beb1401a6ac5e5e19cff7f08486e5141126c (patch) | |
tree | 8eea7501c972355847773be57a3d64657c2d0639 | |
parent | 9e2aa2e752c28a617095075e3f2a3505f0c0971a (diff) | |
download | perl-7394beb1401a6ac5e5e19cff7f08486e5141126c.tar.gz |
vutil.c: use new SvPVCLEAR and constant string friendly macros
-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_exists(MUTABLE_HV(ver), "qv", 2) ) + if ( hv_existss(MUTABLE_HV(ver), "qv") ) (void)hv_stores(MUTABLE_HV(hv), "qv", newSViv(1)); - if ( hv_exists(MUTABLE_HV(ver), "alpha", 5) ) + if ( hv_existss(MUTABLE_HV(ver), "alpha") ) (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_exists(MUTABLE_HV(vs), "alpha", 5 ) ) + if ( hv_existss(MUTABLE_HV(vs), "alpha") ) alpha = TRUE; if (alpha) { @@ -974,7 +974,7 @@ Perl_vstringify(pTHX_ SV *vs) return &PL_sv_undef; } else { - if ( hv_exists(MUTABLE_HV(vs), "qv", 2) ) + if ( hv_existss(MUTABLE_HV(vs), "qv") ) return VNORMAL(vs); else return VNUMIFY(vs); |