This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Attempting to do too many things simultaneously with the C pre-
authorNicholas Clark <nick@ccl4.org>
Thu, 29 Sep 2005 06:52:35 +0000 (06:52 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 29 Sep 2005 06:52:35 +0000 (06:52 +0000)
processor considered harmful.

p4raw-id: //depot/perl@25651

perl.c

diff --git a/perl.c b/perl.c
index 13ce59e..fc0972c 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1725,7 +1725,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #endif
                    opts = SvCUR(opts_prog);
 
-                   sv_catpv(opts_prog,"\"  Compile-time options:"
+                   Perl_sv_catpv(aTHX_ opts_prog,"\"  Compile-time options:"
 #  ifdef DEBUGGING
                             " DEBUGGING"
 #  endif