stas 2003/10/10 15:48:59
Modified: t/conf modperl_extra.pl
Log:
prevent 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. on win32
PR:
Submitted by: Steve Hay <[EMAIL PROTECTED]>
Revision Changes Path
1.35 +1 -1 modperl-2.0/t/conf/modperl_extra.pl
Index: modperl_extra.pl
===================================================================
RCS file: /home/cvs/modperl-2.0/t/conf/modperl_extra.pl,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -u -r1.34 -r1.35
--- modperl_extra.pl 10 Oct 2003 22:45:37 -0000 1.34
+++ modperl_extra.pl 10 Oct 2003 22:48:59 -0000 1.35
@@ -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 {
