diff options
author | ph10 <ph10@2f5784b3-3f2a-0410-8824-cb99058d5e15> | 2010-05-18 15:47:01 +0000 |
---|---|---|
committer | ph10 <ph10@2f5784b3-3f2a-0410-8824-cb99058d5e15> | 2010-05-18 15:47:01 +0000 |
commit | 8f8b41c565c70ab99dd21a81f71a512958f867b5 (patch) | |
tree | bb68328d748e596f734ebd085e4b3f648452ab61 /perltest.pl | |
parent | 85b995f30cc9bf0bb04f5b3b3707a216a56b6bdf (diff) | |
download | pcre-8f8b41c565c70ab99dd21a81f71a512958f867b5.tar.gz |
Added PCRE_UCP and related stuff to make \w etc use Unicode properties.
git-svn-id: svn://vcs.exim.org/pcre/code/trunk@518 2f5784b3-3f2a-0410-8824-cb99058d5e15
Diffstat (limited to 'perltest.pl')
-rwxr-xr-x | perltest.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/perltest.pl b/perltest.pl index fba2fa9..424de2d 100755 --- a/perltest.pl +++ b/perltest.pl @@ -99,6 +99,10 @@ for (;;) $pattern =~ s/K(?=[a-zA-Z]*$)//; + # Remove /W from a pattern (asks pcretest to set PCRE_UCP) + + $pattern =~ s/W(?=[a-zA-Z]*$)//; + # Check that the pattern is valid eval "\$_ =~ ${pattern}"; |