diff options
| author | Slaven Rezic <slaven@rezic.de> | 2003-10-31 12:16:11 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-10-31 19:54:23 +0000 |
| commit | 197cf9b9fa28c8b3d5afcefd42f8263ea63819b3 (patch) | |
| tree | 767c2c22c0a53037a11f552341978c73664626df /t | |
| parent | a12755f08356686e8eba9b8e518360528f66abdc (diff) | |
| download | perl-197cf9b9fa28c8b3d5afcefd42f8263ea63819b3.tar.gz | |
Off-by-one error in regcomp.c
Message-Id: <1067602571.12768@devpc01.iconmobile.de>
p4raw-id: //depot/perl@21591
Diffstat (limited to 't')
| -rw-r--r-- | t/op/regmesg.t | 2 |
1 files changed, 2 insertions, 0 deletions
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"; |