varargs functions such as sv_catpvf can't have compatibility wrappers for
authorNicholas Clark <nick@ccl4.org>
Wed, 31 Dec 2008 07:14:15 +0000 (07:14 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 30 Mar 2009 19:16:38 +0000 (20:16 +0100)
threads, so have to be written longhand as Perl_sv_catpvf(aTHX_ ...)  :-(

(cherry picked from commit 54bb77241e478a3cfef59931ff5bed2271662f23)

perl.c

diff --git a/perl.c b/perl.c
index 738d484..aff5d32 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -3344,14 +3344,14 @@ Perl_moreswitches(pTHX_ const char *s)
 #ifdef PERL_PATCHNUM
            SV* num= newSVpvn(STRINGIFY(PERL_PATCHNUM),sizeof(STRINGIFY(PERL_PATCHNUM))-1);
 #ifdef PERL_GIT_UNCOMMITTED_CHANGES
-           sv_catpvf(num,"%s","*");
+           Perl_sv_catpvf(aTHX_ num,"%s","*");
 #endif
 
            if (sv_len(num)>=sv_len(level) && strnEQ(SvPV_nolen(num),SvPV_nolen(level),sv_len(level))) {
                SvREFCNT_dec(level);
                level= num;
            } else {
-               sv_catpvf(level, " (%s)",SvPV_nolen(num));
+               Perl_sv_catpvf(aTHX_ level, " (%s)",SvPV_nolen(num));
                SvREFCNT_dec(num);
            }
  #endif