From cb421d5edd945a7b56ee0a400c6b91d3acf45381 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 5 Oct 2007 23:02:16 +0000
Subject: [PATCH] Change a sv_catpv() to sv_catpvs().

p4raw-id: //depot/perl@32038
---
 mg.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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