This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sv.c: newSVpvf( → Perl_newSVpvf(aTHX_
authorFather Chrysostomos <sprout@cpan.org>
Tue, 22 Nov 2011 06:50:23 +0000 (22:50 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 22 Nov 2011 06:50:23 +0000 (22:50 -0800)
I don’t know why this is necessary, but there are some strange
#defines surrounding this function.

sv.c

diff --git a/sv.c b/sv.c
index 8460152..3560c27 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -3818,7 +3818,7 @@ S_glob_assign_ref(pTHX_ SV *const dstr, SV *const sstr)
                                 ? cv_const_sv((const CV *)sref)
                                 : NULL;
                        report_redefined_cv(
-                          sv_2mortal(newSVpvf(
+                          sv_2mortal(Perl_newSVpvf(aTHX_
                                "%"HEKf"::%"HEKf,
                                HEKfARG(
                                 HvNAME_HEK(GvSTASH((const GV *)dstr))