From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 5 Oct 2007 23:02:16 +0000 (+0000)
Subject: Change a sv_catpv() to sv_catpvs().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cb421d5edd945a7b56ee0a400c6b91d3acf45381;p=p5sagit%2Fp5-mst-13.2.git

Change a sv_catpv() to sv_catpvs().

p4raw-id: //depot/perl@32038
---

diff --git a/mg.c b/mg.c
index 827fe93..4e3504c 100644
--- 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 '~':