add more positive gofs GPOS tests and fix some bugs too

1 files changed, 2 insertions, 1 deletions

diff --git a/t/op/subst.t b/t/op/subst.t
index 92dac1bddb..2f6e759287 100644
--- a/t/op/subst.t
+++ b/t/op/subst.t
@@ -7,7 +7,7 @@ BEGIN {
 }
 
 require './test.pl';
-plan( tests => 141 );
+plan( tests => 142 );
 
 $x = 'foo';
 $_ = "x";
@@ -596,4 +596,5 @@ is($name, "cis", q[#22351 bug with 'e' substitution modifier]);
 }
 
 fresh_perl_is( '$_=q(foo);s/(.)\G//g;print' => 'foo', '[perl #69056] positive GPOS regex segfault' );
+fresh_perl_is( '$_="abcef"; s/bc|(.)\G(.)/$1 ? "[$1-$2]" : "XX"/ge; print' => 'aXX[c-e][e-f]f', 'positive GPOS regex substitution failure' );