--- regcomp.c.orig	2003-10-31 13:07:52.000000000 +0100
+++ regcomp.c	2003-10-31 13:08:07.000000000 +0100
@@ -5045,7 +5045,7 @@ S_re_croak2(pTHX_ const char* pat1,const
     if (l1 > 512)
     l1 = 512;
     Copy(message, buf, l1 , char);
-    buf[l1] = '\0';            /* Overwrite \n */
+    buf[l1-1] = '\0';          /* Overwrite \n */
     Perl_croak(aTHX_ "%s", buf);
 }

##</code><code>##

[ 21606] By: nicholas                       on 2003/11/01  14:58:31
        Log: Integrate:
             [ 21591]
             Subject: [PATCH] Off-by-one error in regcomp.c
             From: Slaven Rezic <slaven@rezic.de>
             Date: Fri, 31 Oct 2003 12:16:11 +0000
             Message-Id: <1067602571.12768@devpc01.iconmobile.de>
             
             [ 21593]
             Test nit ; goes with change 21591
     Branch: maint-5.8/perl
      !> regcomp.c t/lib/warnings/regcomp t/op/regmesg.t