Add test for [perl #69056], 2nd try

diff --git a/t/op/rt69056.t b/t/op/rt69056.t
new file mode 100644 (file)
index 0000000..5c92b36
--- /dev/null
+++ b/t/op/rt69056.t
@@ -0,0 +1,19 @@
+#!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'
+);