cvs commit: modperl-2.0/lib/Apache compat.pm

[dougm]

dougm       02/05/10 09:38:39

  Modified:    lib/Apache compat.pm
  Log:
  support Apache::URI->parse($r)
  
  Revision  Changes    Path
  1.39      +8 -1      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.38
  retrieving revision 1.39
  diff -u -r1.38 -r1.39
  --- compat.pm 10 May 2002 01:41:37 -0000      1.38
  +++ compat.pm 10 May 2002 16:38:39 -0000      1.39
  @@ -24,6 +24,7 @@
   use Apache::Access ();
   use Apache::RequestIO ();
   use Apache::RequestUtil ();
  +use Apache::ServerUtil ();
   use Apache::Response ();
   use Apache::Log ();
   use APR::Table ();
  @@ -382,7 +383,13 @@
       return $size;
   }
   
  -*Apache::URI::parse = \&APR::URI::parse;
  +sub Apache::URI::parse {
  +    my($class, $r, $uri) = @_;
  +
  +    $uri ||= $r->construct_url($r->uri, $r->pool);
  +
  +    APR::URI->parse($r, $uri);
  +}
   
   1;
   __END__