Parent Directory
| 
Revision Log
| 
Patch
| revision 800 by ph10, Mon Nov 21 10:41:54 2011 UTC | revision 801 by ph10, Mon Dec 12 16:23:37 2011 UTC | |
|---|---|---|
| # | Line 111 for (;;) | Line 111 for (;;) |
| 111 | ||
| 112 | $pattern =~ s/S(?=[a-zA-Z]*$)//g; | $pattern =~ s/S(?=[a-zA-Z]*$)//g; |
| 113 | ||
| 114 | # Remove /Y from a pattern (asks pcretest to disable PCRE optimization) | |
| 115 | ||
| 116 | $pattern =~ s/Y(?=[a-zA-Z]*$)//; | |
| 117 | ||
| 118 | # Check that the pattern is valid | # Check that the pattern is valid |
| 119 | ||
| 120 | eval "\$_ =~ ${pattern}"; | eval "\$_ =~ ${pattern}"; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.5 |