req = new_version(req);
if ( vcmp( SvRV(req), SvRV(sv) ) > 0 )
- Perl_croak(aTHX_ "%s version %_ required--this is only version %_",
+ Perl_croak(aTHX_
+ "%s version %"SVf" required--this is only version %"SVf,
HvNAME(pkg), req, sv);
}
if (items == 3 )
{
char *vs = savepvn(SvPVX(ST(2)),SvCUR(ST(2)));
- version = newSVpvf("v%s",vs);
+ version = Perl_newSVpvf(aTHX_ "v%s",vs);
}
PUSHs(new_version(version));