sv_inc(sv);
SvSETMAGIC(sv);
/* Make it findable via fetchmethod */
- newXS("version::()", NULL, file);
newXS("version::new", XS_version_new, file);
newXS("version::(\"\"", XS_version_stringify, file);
newXS("version::stringify", XS_version_stringify, file);
lobj = tmp;
}
else
- croak("lobj is not of type version");
+ Perl_croak(aTHX_ "lobj is not of type version");
{
SV *vs = NEWSV(92,5);
lobj = tmp;
}
else
- croak("lobj is not of type version");
+ Perl_croak(aTHX_ "lobj is not of type version");
{
SV *vs = NEWSV(92,5);
lobj = tmp;
}
else
- croak("lobj is not of type version");
+ Perl_croak(aTHX_ "lobj is not of type version");
{
SV *rs;
lobj = tmp;
}
else
- croak("lobj is not of type version");
+ Perl_croak(aTHX_ "lobj is not of type version");
{
SV *rs;
lobj = tmp;
}
else
- croak("lobj is not of type version");
+ Perl_croak(aTHX_ "lobj is not of type version");
{
- croak("operation not supported with version object");
+ Perl_croak(aTHX_ "operation not supported with version object");
}
}