--- code/trunk/testdata/testinput2	2012/01/15 18:07:05	881
+++ code/trunk/testdata/testinput2	2012/01/15 18:45:27	882
@@ -3580,5 +3580,19 @@
 
 /^a(*:X)bcde/K
    abc\P
+   
+/-- These are here because Perl doesn't return a mark, except for the first --/
+
+/(?=(*:x))(q|)/K+
+    abc
+
+/(?=(*:x))((*:y)q|)/K+
+    abc
+
+/(?=(*:x))(?:(*:y)q|)/K+
+    abc
+
+/(?=(*:x))(?>(*:y)q|)/K+
+    abc
 
 /-- End of testinput2 --/