This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix an off by one error, found by valgrind
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 24 Oct 2007 09:31:43 +0000 (09:31 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 24 Oct 2007 09:31:43 +0000 (09:31 +0000)
p4raw-id: //depot/perl@32183

op.c

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