{
if (SvIV(subgen) == (IV)PL_sub_generation) {
SV* sv;
- SV** svp = (SV**)hv_fetch(hv, name, len, FALSE);
+ SV** const svp = (SV**)hv_fetch(hv, name, len, FALSE);
if (svp && (sv = *svp) != (SV*)&PL_sv_undef) {
DEBUG_o( Perl_deb(aTHX_ "Using cached ISA %s for package %s\n",
name, hvname) );
Perl_croak(aTHX_ "Usage: version::stringify(lobj, ...)");
SP -= items;
{
- SV * lobj = Nullsv;
+ SV * lobj;
if (sv_derived_from(ST(0), "version")) {
lobj = SvRV(ST(0));
Perl_croak(aTHX_ "Usage: version::numify(lobj, ...)");
SP -= items;
{
- SV * lobj = Nullsv;
+ SV * lobj;
if (sv_derived_from(ST(0), "version")) {
lobj = SvRV(ST(0));
Perl_croak(aTHX_ "Usage: version::normal(lobj, ...)");
SP -= items;
{
- SV * lobj = Nullsv;
+ SV * lobj;
if (sv_derived_from(ST(0), "version")) {
lobj = SvRV(ST(0));
Perl_croak(aTHX_ "Usage: version::vcmp(lobj, ...)");
SP -= items;
{
- SV * lobj = Nullsv;
+ SV * lobj;
if (sv_derived_from(ST(0), "version")) {
lobj = SvRV(ST(0));
SV *rs;
SV *rvs;
SV * robj = ST(1);
- IV swap = (IV)SvIV(ST(2));
+ const IV swap = (IV)SvIV(ST(2));
if ( ! sv_derived_from(robj, "version") )
{
if ( SvNOK(ver) ) /* may get too much accuracy */
{
char tbuf[64];
- sprintf(tbuf,"%.9"NVgf, SvNVX(ver));
- version = savepv(tbuf);
+ const STRLEN len = my_sprintf(tbuf,"%.9"NVgf, SvNVX(ver));
+ version = savepvn(tbuf, len);
}
else
{
if (!isGV(sv)) {
if (SvROK(sv) && isGV(SvRV(sv)))
gv = (GV*)SvRV(sv);
- else
+ else if (SvPOKp(sv))
gv = gv_fetchsv(sv, FALSE, SVt_PVIO);
}