--- code/trunk/perltest.pl	2011/12/28 16:10:09	835
+++ code/trunk/perltest.pl	2011/12/28 17:16:11	836
@@ -111,6 +111,10 @@
 
   $pattern =~ s/S(?=[a-zA-Z]*$)//g;
 
+  # Remove /Y from a pattern (asks pcretest to disable PCRE optimization)
+
+  $pattern =~ s/Y(?=[a-zA-Z]*$)//;
+
   # Check that the pattern is valid
 
   eval "\$_ =~ ${pattern}";