diff options
| author | Yves Orton <demerphq@gmail.com> | 2018-03-19 17:53:26 +0000 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2018-03-19 17:53:42 +0000 |
| commit | ff3df6adb6102980a36f8991362c849287edb06c (patch) | |
| tree | 76f9036a4511d98d83eae5d21d3d3b457a08591a /t | |
| parent | 40da35774dd1607c9035cfdce4daee389f08f2a3 (diff) | |
| download | perl-ff3df6adb6102980a36f8991362c849287edb06c.tar.gz | |
fix #132017 - OPFAIL insert needs to set flags to 0
why reginsert doesnt do this stuff I dont know.
(cherry picked from commit 4dc12118f61b997fbd030230665b46e7c40f32d6)
Diffstat (limited to 't')
| -rw-r--r-- | t/re/pat.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/re/pat.t b/t/re/pat.t index c05835c1cf..e30f7613c6 100644 --- a/t/re/pat.t +++ b/t/re/pat.t @@ -23,7 +23,7 @@ BEGIN { skip_all('no re module') unless defined &DynaLoader::boot_DynaLoader; skip_all_without_unicode_tables(); -plan tests => 839; # Update this when adding/deleting tests. +plan tests => 840; # Update this when adding/deleting tests. run_tests() unless caller; @@ -1925,6 +1925,9 @@ EOP pos($text) = 3; ok(scalar($text !~ m{(~*=[a-z]=)}g), "RT #131575"); } + { + fresh_perl_is('"AA" =~ m/AA{1,0}/','',{},"handle OPFAIL insert properly"); + } } # End of sub run_tests |