Fix problems with conditional references to duplicate named subpatterns.

git-svn-id: svn://vcs.exim.org/pcre/code/trunk@459 2f5784b3-3f2a-0410-8824-cb99058d5e15

1 files changed, 4 insertions, 0 deletions

diff --git a/perltest.pl b/perltest.pl
index 0d290c1..c4f1c97 100755
--- a/perltest.pl
+++ b/perltest.pl
@@ -90,6 +90,10 @@ for (;;)
   # Remove /8 from a UTF-8 pattern.
 
   $utf8 = $pattern =~ s/8(?=[a-z]*$)//;
+  
+  # Remove /J from a pattern with duplicate names.
+  
+  $pattern =~ s/J(?=[a-z]*$)//;  
 
   # Check that the pattern is valid