Remove a vestigial STRLEN case and convert a label to lowercase.

(Tweaking 777f7c561610dee6.)

1 files changed, 1 insertions, 1 deletions

diff --git a/mg.c b/mg.c
index 4f8207c1af..3f51a1744e 100644
--- a/mg.c
+++ b/mg.c
@@ -2020,7 +2020,7 @@ Perl_magic_getsubstr(pTHX_ SV *sv, MAGIC *mg)
 	offs = len;
     if (rem > len - offs)
 	rem = len - offs;
-    sv_setpvn(sv, tmps + offs, (STRLEN)rem);
+    sv_setpvn(sv, tmps + offs, rem);
     if (SvUTF8(lsv))
         SvUTF8_on(sv);
     return 0;