diff options
| -rw-r--r-- | regcomp.c | 2 | ||||
| -rw-r--r-- | t/op/regmesg.t | 2 |
2 files changed, 3 insertions, 1 deletions
@@ -5045,7 +5045,7 @@ S_re_croak2(pTHX_ const char* pat1,const char* pat2,...) 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); } diff --git a/t/op/regmesg.t b/t/op/regmesg.t index 8241941156..05688b4a96 100644 --- a/t/op/regmesg.t +++ b/t/op/regmesg.t @@ -131,6 +131,7 @@ while (@death) chomp $@; $result =~ s/{\#}/$marker1/; $result =~ s/{\#}/$marker2/; + $result .= " at "; if ($@ !~ /^\Q$result/) { print "# For $regex, expected:\n# $result\n# Got:\n# $@\n#\nnot "; } @@ -164,6 +165,7 @@ while (@warning) } $result =~ s/{\#}/$marker1/; $result =~ s/{\#}/$marker2/; + $result .= " at "; if ($warning !~ /^\Q$result/) { print <<"EOM"; |