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);
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) {
#endif
{
I32 i, len, digit;
- bool alpha = FALSE;
SV *sv;
AV *av;
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);
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);
{
SSize_t i,l,m,r;
I32 retval;
- bool lalpha = FALSE;
- bool ralpha = FALSE;
I32 left = 0;
I32 right = 0;
AV *lav, *rav;
/* 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);