Change a sv_catpv() to sv_catpvs().

p4raw-id: //depot/perl@32038

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 '~':