Parent Directory
|
Revision Log
|
Patch
| revision 518 by ph10, Tue May 18 15:47:01 2010 UTC | revision 612 by ph10, Sat Jul 2 15:20:59 2011 UTC | |
|---|---|---|
| # | Line 103 for (;;) | Line 103 for (;;) |
| 103 | ||
| 104 | $pattern =~ s/W(?=[a-zA-Z]*$)//; | $pattern =~ s/W(?=[a-zA-Z]*$)//; |
| 105 | ||
| 106 | # Remove /S or /SS from a pattern (asks pcretest to study or not to study) | |
| 107 | ||
| 108 | $pattern =~ s/S(?=[a-zA-Z]*$)//g; | |
| 109 | ||
| 110 | # Check that the pattern is valid | # Check that the pattern is valid |
| 111 | ||
| 112 | eval "\$_ =~ ${pattern}"; | eval "\$_ =~ ${pattern}"; |
|
||||||||
| webmaster@exim.org | ViewVC Help |
| Powered by ViewVC 1.1.12 |