From 5c6b2528ab28053e379d64f08e128f155d80cabb Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 24 Oct 2007 09:31:43 +0000
Subject: [PATCH] Fix an off by one error, found by valgrind

p4raw-id: //depot/perl@32183
---
 op.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/op.c b/op.c
index c16c111..e68b86f 100644
--- 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;
 		}
 	    }
-- 
1.8.3.1