Parent Directory
| 
Revision Log
| 
Patch
| revision 512 by ph10, Tue Mar 30 11:11:52 2010 UTC | revision 518 by ph10, Tue May 18 15:47:01 2010 UTC | |
|---|---|---|
| # | Line 99 for (;;) | Line 99 for (;;) |
| 99 | ||
| 100 | $pattern =~ s/K(?=[a-zA-Z]*$)//; | $pattern =~ s/K(?=[a-zA-Z]*$)//; |
| 101 | ||
| 102 | # Remove /W from a pattern (asks pcretest to set PCRE_UCP) | |
| 103 | ||
| 104 | $pattern =~ s/W(?=[a-zA-Z]*$)//; | |
| 105 | ||
| 106 | # Check that the pattern is valid | # Check that the pattern is valid |
| 107 | ||
| 108 | eval "\$_ =~ ${pattern}"; | eval "\$_ =~ ${pattern}"; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.5 |