diff options
| -rw-r--r-- | MANIFEST | 1 | ||||
| -rw-r--r-- | t/op/rt69056.t | 19 | ||||
| -rw-r--r-- | t/op/subst.t | 5 |
3 files changed, 4 insertions, 21 deletions
@@ -4356,7 +4356,6 @@ t/op/reset.t See if reset operator works t/op/re.t See if exportable 're' funcs in universal.c work t/op/re_tests Regular expressions for regexp.t t/op/reverse.t See if reverse operator works -t/op/rt69056.t Check for segfault reported in #69056 t/op/runlevel.t See if die() works from perl_call_*() t/op/rxcode.t See if /(?{ code })/ works t/op/setpgrpstack.t See if setpgrp works diff --git a/t/op/rt69056.t b/t/op/rt69056.t deleted file mode 100644 index 5c92b36bfd..0000000000 --- a/t/op/rt69056.t +++ /dev/null @@ -1,19 +0,0 @@ -#!perl -w - -=head1 DESCRIPTION - -This test tests against a regular expression bug -that leads to a segfault - -The bug was reported in [perl #69056] by Niko Tyni - -=cut - -use strict; -require 't/test.pl'; - -fresh_perl_is( - '$_=q(foo);s/(.)\G//g;print' - => 'foo', - '[perl #69056] positive GPOS regex segfault' -); diff --git a/t/op/subst.t b/t/op/subst.t index 30af8a2583..92dac1bddb 100644 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -7,7 +7,7 @@ BEGIN { } require './test.pl'; -plan( tests => 140 ); +plan( tests => 141 ); $x = 'foo'; $_ = "x"; @@ -594,3 +594,6 @@ is($name, "cis", q[#22351 bug with 'e' substitution modifier]); is($_, "012", "RT#52104: $id"); } } + +fresh_perl_is( '$_=q(foo);s/(.)\G//g;print' => 'foo', '[perl #69056] positive GPOS regex segfault' ); + |