Fix UTF8 lex sub names

UTF8 lexical sub names were getting mangled, with extra junk on the end,
due to a precedence problem.

1 files changed, 1 insertions, 1 deletions

diff --git a/pad.c b/pad.c
index 9da55362aa..a9581f8179 100644
--- a/pad.c
+++ b/pad.c
@@ -2128,7 +2128,7 @@ S_cv_clone_pad(pTHX_ CV *proto, CV *cv, CV *outside, bool newcv)
 			CvNAME_HEK_set(
 			    sv,
 			    share_hek(SvPVX_const(namesv)+1,
-				      SvCUR(namesv) - 1
+				      (SvCUR(namesv) - 1)
 					 * (SvUTF8(namesv) ? -1 : 1),
 				      hash)
 			);