Get rid of a few more hardcoded string lengths.

p4raw-id: //depot/perl@26645

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index bd433522da..6f296d71ce 100644
--- a/sv.c
+++ b/sv.c
@@ -11175,7 +11175,7 @@ S_varname(pTHX_ GV *gv, const char gvtype, PADOFFSET targ,
 	Perl_sv_catpvf(aTHX_ name, "[%"IVdf"]", (IV)aindex);
     }
     else if (subscript_type == FUV_SUBSCRIPT_WITHIN)
-	sv_insert(name, 0, 0,  "within ", 7);
+	sv_insert(name, 0, 0,  STR_WITH_LEN("within "));
 
     return name;
 }