perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/conf modperl_extra.pl
Date Fri, 10 Oct 2003 22:48:59 GMT
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 <steve.hay@uk.radan.com>
  
  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 {
  
  
  

Mime
View raw message