diff options
author | John Peacock <jpeacock@cpan.org> | 2016-03-18 21:43:52 -0400 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-03-19 11:37:37 +0000 |
commit | 3462bde70bf321f756bf8f21ca688fa12d17dbdd (patch) | |
tree | d23465eafde870719432d9258199c1e8abcebe09 /vutil.c | |
parent | df61f5a9a27706fb7cd2b7bb1ab932ee8142f511 (diff) | |
download | perl-3462bde70bf321f756bf8f21ca688fa12d17dbdd.tar.gz |
Update version to 0.9916
Diffstat (limited to 'vutil.c')
-rw-r--r-- | vutil.c | 10 |
1 files changed, 0 insertions, 10 deletions
@@ -901,7 +901,6 @@ Perl_vnormal(pTHX_ SV *vs) #endif { I32 i, len, digit; - bool alpha = FALSE; SV *sv; AV *av; @@ -912,9 +911,6 @@ Perl_vnormal(pTHX_ SV *vs) if ( ! vs ) Perl_croak(aTHX_ "Invalid version object"); - if ( hv_exists(MUTABLE_HV(vs), "alpha", 5 ) ) - alpha = TRUE; - av = MUTABLE_AV(SvRV(*hv_fetchs(MUTABLE_HV(vs), "version", FALSE))); len = av_len(av); @@ -1003,8 +999,6 @@ Perl_vcmp(pTHX_ SV *lhv, SV *rhv) { SSize_t i,l,m,r; I32 retval; - bool lalpha = FALSE; - bool ralpha = FALSE; I32 left = 0; I32 right = 0; AV *lav, *rav; @@ -1019,13 +1013,9 @@ Perl_vcmp(pTHX_ SV *lhv, SV *rhv) /* get the left hand term */ lav = MUTABLE_AV(SvRV(*hv_fetchs(MUTABLE_HV(lhv), "version", FALSE))); - if ( hv_exists(MUTABLE_HV(lhv), "alpha", 5 ) ) - lalpha = TRUE; /* and the right hand term */ rav = MUTABLE_AV(SvRV(*hv_fetchs(MUTABLE_HV(rhv), "version", FALSE))); - if ( hv_exists(MUTABLE_HV(rhv), "alpha", 5 ) ) - ralpha = TRUE; l = av_len(lav); r = av_len(rav); |