summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2016-10-19 11:14:27 +0200
committerYves Orton <demerphq@gmail.com>2016-10-19 13:28:02 +0200
commit7394beb1401a6ac5e5e19cff7f08486e5141126c (patch)
tree8eea7501c972355847773be57a3d64657c2d0639
parent9e2aa2e752c28a617095075e3f2a3505f0c0971a (diff)
downloadperl-7394beb1401a6ac5e5e19cff7f08486e5141126c.tar.gz
vutil.c: use new SvPVCLEAR and constant string friendly macros
-rw-r--r--vutil.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/vutil.c b/vutil.c
index 610c03c446..bd51707ca4 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_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);