perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From cho...@locus.apache.org
Subject cvs commit: modperl/lib/Apache Registry.pm
Date Wed, 02 Aug 2000 15:53:19 GMT
cholet      00/08/02 08:53:17

  Modified:    .        Changes
               lib/Apache Registry.pm
  Log:
  quotemeta regexp
  
  Revision  Changes    Path
  1.503     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.502
  retrieving revision 1.503
  diff -u -r1.502 -r1.503
  --- Changes	2000/07/25 17:59:45	1.502
  +++ Changes	2000/08/02 15:53:11	1.503
  @@ -10,6 +10,9 @@
   
   =item 1.24_01-dev
   
  +quotemeta path_info in Registry regexp
  +[Tobias Hoellrich <thoellri@adobe.com>]
  +
   flush r->finfo cache if r->filename fails
   [Roger Espel Llima <espel@iagora.net>]
   
  
  
  
  1.32      +1 -1      modperl/lib/Apache/Registry.pm
  
  Index: Registry.pm
  ===================================================================
  RCS file: /home/cvs/modperl/lib/Apache/Registry.pm,v
  retrieving revision 1.31
  retrieving revision 1.32
  diff -u -r1.31 -r1.32
  --- Registry.pm	2000/04/05 06:19:34	1.31
  +++ Registry.pm	2000/08/02 15:53:15	1.32
  @@ -62,7 +62,7 @@
   	$r->log_error(sprintf "Apache::Registry::handler examining %s",
   		      $uri) if $Debug && $Debug & 4;
   	my $path_info = $r->path_info;
  -	my $script_name = $path_info && $uri =~ /$path_info$/ ?
  +	my $script_name = $path_info && $uri =~ /\Q$path_info\E$/ ?
   	    substr($uri, 0, length($uri)-length($path_info)) :
   	    $uri;
   
  
  
  

Mime
View raw message