In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/111d382d531b38ae57c1b946e9ab48608cf58309?hp=f9bc8ed7687bd5303177a45afd26267824bd2ea5>
- Log ----------------------------------------------------------------- commit 111d382d531b38ae57c1b946e9ab48608cf58309 Author: Tony Cook <t...@develop-help.com> Date: Mon Jan 10 18:50:59 2011 +1100 newSVpvf_nocontext only visible with threads, fix for non-threaded Ideally it would be available, calling Perl_newSVpvf_nocontext directly is an alternative, but the comment in sv.c makes that questionable. Since the function being called from already has a context, use it. ----------------------------------------------------------------------- Summary of changes: utf8.c | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/utf8.c b/utf8.c index eee5771..6276308 100644 --- a/utf8.c +++ b/utf8.c @@ -580,7 +580,7 @@ Perl_utf8n_to_uvuni(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags) #else if (uv == 0xfe || uv == 0xff) { if (flags & (UTF8_WARN_SUPER|UTF8_WARN_FE_FF)) { - sv = sv_2mortal(newSVpvf_nocontext("Code point beginning with byte 0x%02"UVXf" is not Unicode, and not portable", uv)); + sv = sv_2mortal(Perl_newSVpvf(aTHX_ "Code point beginning with byte 0x%02"UVXf" is not Unicode, and not portable", uv)); flags &= ~UTF8_WARN_SUPER; /* Only warn once on this problem */ } if (flags & (UTF8_DISALLOW_SUPER|UTF8_DISALLOW_FE_FF)) { @@ -651,7 +651,7 @@ Perl_utf8n_to_uvuni(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags) } else if (flags & (UTF8_DISALLOW_ILLEGAL_INTERCHANGE|UTF8_WARN_ILLEGAL_INTERCHANGE)) { if (UNICODE_IS_SURROGATE(uv)) { if ((flags & (UTF8_WARN_SURROGATE|UTF8_CHECK_ONLY)) == UTF8_WARN_SURROGATE) { - sv = sv_2mortal(newSVpvf_nocontext("UTF-16 surrogate U+%04"UVXf"", uv)); + sv = sv_2mortal(Perl_newSVpvf(aTHX_ "UTF-16 surrogate U+%04"UVXf"", uv)); } if (flags & UTF8_DISALLOW_SURROGATE) { goto disallowed; @@ -659,7 +659,7 @@ Perl_utf8n_to_uvuni(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags) } else if (UNICODE_IS_NONCHAR(uv)) { if ((flags & (UTF8_WARN_NONCHAR|UTF8_CHECK_ONLY)) == UTF8_WARN_NONCHAR ) { - sv = sv_2mortal(newSVpvf_nocontext("Unicode non-character U+%04"UVXf" is illegal for open interchange", uv)); + sv = sv_2mortal(Perl_newSVpvf(aTHX_ "Unicode non-character U+%04"UVXf" is illegal for open interchange", uv)); } if (flags & UTF8_DISALLOW_NONCHAR) { goto disallowed; @@ -667,7 +667,7 @@ Perl_utf8n_to_uvuni(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags) } else if ((uv > PERL_UNICODE_MAX)) { if ((flags & (UTF8_WARN_SUPER|UTF8_CHECK_ONLY)) == UTF8_WARN_SUPER) { - sv = sv_2mortal(newSVpvf_nocontext("Code point 0x%04"UVXf" is not Unicode, may not be portable", uv)); + sv = sv_2mortal(Perl_newSVpvf(aTHX_ "Code point 0x%04"UVXf" is not Unicode, may not be portable", uv)); } if (flags & UTF8_DISALLOW_SUPER) { goto disallowed; -- Perl5 Master Repository