[PATCH mp2] quotemeta directory in regex

[Steve Hay]

Attached a little patch to stop this happening when running "perl t/TEST 
...":

=====
C:\Temp\modperl-2.0>perl t/TEST modperl\post_utf8
*** server localhost:8529 shutdown
C:\apache2/bin/Apache.exe -d C:/Temp/modperl-2.0/t -f 
C:/Temp/modperl-2.0/t/conf/httpd.conf -DAPACHE2 -DPERL_USEITHREADS
using Apache/2.0.47 (winnt MPM)

waiting for server to start: .Unrecognized escape \T passed through in 
regex; marked by <-- HERE in m/^C:\T <-- HERE emp\modperl-2.0/ at 
C:/Temp/modperl-2.0/t/conf/modperl_extra.pl line 18.
Unrecognized escape \m passed through in regex; marked by <-- HERE in 
m/^C:\Temp\m <-- HERE odperl-2.0/ at 
C:/Temp/modperl-2.0/t/conf/modperl_extra.pl line 18.
[...]
=====

- Steve
--- t/conf/modperl_extra.pl.orig        2003-09-12 03:19:02.000000000 +0100
+++ t/conf/modperl_extra.pl     2003-10-10 11:48:53.715918500 +0100
@@ -15,7 +15,7 @@
 my $project_root = canonpath Apache::server_root_relative($pool, "..");
 my (@a, @b, @c);
 for (@INC) {
-    if (m|^$project_root|) {
+    if (m|^\Q$project_root\E|) {
         m|blib| ? push @b, $_ : push @a, $_;
     }
     else {
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]