From: Max Maischein <corion@corion.net>
Date: Thu, 10 Sep 2009 11:15:02 +0000 (+0200)
Subject: Add test for [perl #69056], 2nd try
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ac93a5c0ba6d92356e52f3a0cafdcae1a5b7a9af;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/t/op/rt69056.t b/t/op/rt69056.t
new file mode 100644
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'
+);