This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change a sv_catpv() to sv_catpvs().
authorNicholas Clark <nick@ccl4.org>
Fri, 5 Oct 2007 23:02:16 +0000 (23:02 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 5 Oct 2007 23:02:16 +0000 (23:02 +0000)
p4raw-id: //depot/perl@32038

mg.c

diff --git a/mg.c b/mg.c
index 827fe93..4e3504c 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -942,7 +942,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
            sv_setpv(sv,s);
        else {
            sv_setpv(sv,GvENAME(PL_defoutgv));
-           sv_catpv(sv,"_TOP");
+           sv_catpvs(sv,"_TOP");
        }
        break;
     case '~':