diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-03-19 18:41:48 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-03-19 19:01:37 -0600 |
| commit | 05dd4d395c6a14aeb23dbc107af579969b186caf (patch) | |
| tree | 023409b902d699170fb759a250c881ddceb845d5 /t/re | |
| parent | 9d7a1e6315426819da0d6af6dc79fde72e9c8c08 (diff) | |
| download | perl-05dd4d395c6a14aeb23dbc107af579969b186caf.tar.gz | |
regcomp.c: RT#77414. Initialize flag
As indicated in the comments, this flag needs to be initialized to
1 or the optimizer loses the fact that something could match a
character that isn't in utf8 and whose bitmap bit isn't set. This
happens, for example, with Unicode properties.
Thus this fixes #77414. That ticket had been closed recently because
it went away due to another patch that caused the optimizer to be
bypassed in the cases tested for. But when that patch was reverted,
and cleaned-up, this bug came back. Now, I believe I have found the
root cause.
Diffstat (limited to 't/re')
| -rw-r--r-- | t/re/pat.t | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/t/re/pat.t b/t/re/pat.t index b66d9393ac..4ef9663b5e 100644 --- a/t/re/pat.t +++ b/t/re/pat.t @@ -1030,7 +1030,6 @@ sub run_tests { my $message = '\p property after empty * match'; { - local $::TODO = "Bug 77414"; like("1", qr/\s*\pN/, $message); like("-", qr/\s*\p{Dash}/, $message); like(" ", qr/\w*\p{Blank}/, $message); |