perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/lib/Apache compat.pm
Date Sat, 23 Nov 2002 22:35:06 GMT
dougm       2002/11/23 14:35:06

  Modified:    .        Changes
               lib/Apache compat.pm
  Log:
  Submitted by: Walery Studennikov <despair@sama.ru>
  Reviewed by:  dougm
  tr/+/ /; in parse_args compat method
  
  Revision  Changes    Path
  1.59      +1 -1      modperl-2.0/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Changes,v
  retrieving revision 1.58
  retrieving revision 1.59
  diff -u -r1.58 -r1.59
  --- Changes	22 Oct 2002 15:13:22 -0000	1.58
  +++ Changes	23 Nov 2002 22:35:06 -0000	1.59
  @@ -17,7 +17,7 @@
   
   fix delete $ENV{$key} bug
   
  -fix parse_args compat method to support non-ascii characters
  +fix parse_args compat method to support non-ascii characters and tr/+/ /
   [Walery Studennikov <despair@sama.ru>]
   
   fix post_connection compat method to behave as it did in 1.x
  
  
  
  1.71      +2 -0      modperl-2.0/lib/Apache/compat.pm
  
  Index: compat.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v
  retrieving revision 1.70
  retrieving revision 1.71
  diff -u -r1.70 -r1.71
  --- compat.pm	21 Oct 2002 20:21:34 -0000	1.70
  +++ compat.pm	23 Nov 2002 22:35:06 -0000	1.71
  @@ -213,11 +213,13 @@
       $r->connection->get_remote_host($type, $r->per_dir_config);
   }
   
  +#XXX: should port 1.x's Apache::unescape_url_info
   sub parse_args {
       my($r, $string) = @_;
       return () unless defined $string and $string;
   
       return map {
  +        tr/+/ /;
           s/%([0-9a-fA-F]{2})/pack("C",hex($1))/ge;
           $_;
       } split /[=&;]/, $string, -1;
  
  
  

Mime
View raw message