/* universal.c
*
- * Copyright (c) 1997-2002, Larry Wall
+ * Copyright (c) 1997-2003, Larry Wall
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
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));