diff options
| -rw-r--r-- | universal.c | 12 | ||||
| -rw-r--r-- | util.c | 12 |
2 files changed, 12 insertions, 12 deletions
diff --git a/universal.c b/universal.c index 486b366f4a..668fa3b34a 100644 --- a/universal.c +++ b/universal.c @@ -414,7 +414,7 @@ XS(XS_version_stringify) lobj = tmp; } else - croak("lobj is not of type version"); + Perl_croak(aTHX_ "lobj is not of type version"); { SV *vs = NEWSV(92,5); @@ -444,7 +444,7 @@ XS(XS_version_numify) lobj = tmp; } else - croak("lobj is not of type version"); + Perl_croak(aTHX_ "lobj is not of type version"); { SV *vs = NEWSV(92,5); @@ -471,7 +471,7 @@ XS(XS_version_vcmp) lobj = tmp; } else - croak("lobj is not of type version"); + Perl_croak(aTHX_ "lobj is not of type version"); { SV *rs; @@ -516,7 +516,7 @@ XS(XS_version_boolean) lobj = tmp; } else - croak("lobj is not of type version"); + Perl_croak(aTHX_ "lobj is not of type version"); { SV *rs; @@ -542,10 +542,10 @@ XS(XS_version_noop) 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"); } } @@ -4252,19 +4252,19 @@ correct type (for speed). */ SV * -Perl_vnumify(SV *sv, SV *vs) +Perl_vnumify(pTHX_ SV *sv, SV *vs) { U8* pv = (U8*)SvPVX(vs); STRLEN len = SvCUR(vs); STRLEN retlen; UV digit = utf8_to_uvchr(pv,&retlen); - sv_setpvf(sv,"%"UVf".",digit); + Perl_sv_setpvf(aTHX_ sv,"%"UVf".",digit); for (pv += retlen, len -= retlen; len > 0; pv += retlen, len -= retlen) { digit = utf8_to_uvchr(pv,&retlen); - sv_catpvf(sv,"%03"UVf,digit); + Perl_sv_catpvf(aTHX_ sv,"%03"UVf,digit); } return sv; } @@ -4284,19 +4284,19 @@ correct type (for speed). */ SV * -Perl_vstringify(SV *sv, SV *vs) +Perl_vstringify(pTHX_ SV *sv, SV *vs) { U8* pv = (U8*)SvPVX(vs); STRLEN len = SvCUR(vs); STRLEN retlen; UV digit = utf8_to_uvchr(pv,&retlen); - sv_setpvf(sv,"%"UVf,digit); + Perl_sv_setpvf(aTHX_ sv,"%"UVf,digit); for (pv += retlen, len -= retlen; len > 0; pv += retlen, len -= retlen) { digit = utf8_to_uvchr(pv,&retlen); - sv_catpvf(sv,".%03"UVf,digit); + Perl_sv_catpvf(aTHX_ sv,".%03"UVf,digit); } if ( SvIVX(vs) < 0 ) sv_catpv(sv,"beta"); |