From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 13 Jun 2005 22:29:00 +0000 (+0000)
Subject: Pay attention to the comments that Dave writes.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f9926b10e9205923d4fd70f7cb4c7c0cb241d185;p=p5sagit%2Fp5-mst-13.2.git

Pay attention to the comments that Dave writes.

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

diff --git a/sv.c b/sv.c
index d161b11..9713707 100644
--- a/sv.c
+++ b/sv.c
@@ -758,15 +758,12 @@ S_varname(pTHX_ GV *gv, const char *gvtype, PADOFFSET targ,
     else {
 	U32 u;
 	CV *cv = find_runcv(&u);
-	STRLEN len;
-	const char *str;
 	if (!cv || !CvPADLIST(cv))
 	    return Nullsv;;
 	av = (AV*)(*av_fetch(CvPADLIST(cv), 0, FALSE));
 	sv = *av_fetch(av, targ, FALSE);
 	/* SvLEN in a pad name is not to be trusted */
-	str = SvPV_const(sv,len);
-	sv_setpvn(name, str, len);
+	sv_setpv(name, SvPV_nolen_const(sv));
     }
 
     if (subscript_type == FUV_SUBSCRIPT_HASH) {