From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 24 Oct 2007 09:31:43 +0000 (+0000)
Subject: Fix an off by one error, found by valgrind
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5c6b2528ab28053e379d64f08e128f155d80cabb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 		}
 	    }