Subject: | unused qv variable in Perl_vnormal |
Looking at the diff to 0.9909, the qv variable gets set but appears unused.
@@ -890,6 +914,7 @@ Perl_vnormal(pTHX_ SV *vs)
{
I32 i, len, digit;
bool alpha = FALSE;
+ bool qv = FALSE;
SV *sv;
AV *av;
@@ -902,6 +927,9 @@ Perl_vnormal(pTHX_ SV *vs)
if ( hv_exists(MUTABLE_HV(vs), "alpha", 5 ) )
alpha = TRUE;
+ if ( hv_exists(MUTABLE_HV(vs), "qv", 2) )
+ qv = TRUE;
+
av = MUTABLE_AV(SvRV(*hv_fetchs(MUTABLE_HV(vs), "version", FALSE)));
len = av_len(av);
@@ -1082,3 +1110,5 @@ Perl_vcmp(pTHX_ SV *lhv, SV *rhv)
}
return retval;
}