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

[dougm]

dougm       01/10/08 10:33:02

  Modified:    lib/Apache compat.pm
  Log:
  support $r->request
  
  Revision  Changes    Path
  1.18      +4 -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.17
  retrieving revision 1.18
  diff -u -r1.17 -r1.18
  --- compat.pm 2001/10/08 17:30:39     1.17
  +++ compat.pm 2001/10/08 17:33:02     1.18
  @@ -59,6 +59,10 @@
   
   package Apache::RequestRec;
   
  +#we support Apache->request; this is needed to support $r->request
  +#XXX: seems sorta backwards
  +*request = \&Apache::request;
  +
   sub table_get_set {
       my($r, $table) = (shift, shift);
       my($key, $value) = @_;