Fix an off by one error, found by valgrind

p4raw-id: //depot/perl@32183

diff --git a/op.c b/op.c
index c16c111..e68b86f 100644 (file)
--- a/op.c
+++ b/op.c
@@ -7243,7 +7243,7 @@ Perl_ck_require(pTHX_ OP *o)
            for (; s < end; s++) {
                if (*s == ':' && s[1] == ':') {
                    *s = '/';
-                   Move(s+2, s+1, end - s, char);
+                   Move(s+2, s+1, end - s - 1, char);
                    --end;
                }
            }