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 Mon, 08 Oct 2001 17:30:40 GMT
dougm       01/10/08 10:30:40

  Modified:    lib/Apache compat.pm
  Log:
  implement backwards compat functionality for Apache::{clear,stash}_rgy_endav
  
  Revision  Changes    Path
  1.17      +13 -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.16
  retrieving revision 1.17
  diff -u -r1.16 -r1.17
  --- compat.pm	2001/10/06 01:03:26	1.16
  +++ compat.pm	2001/10/08 17:30:39	1.17
  @@ -143,10 +143,23 @@
       return $r->parse_args($buf)
   }
   
  +sub rgy_script_name {
  +    require ModPerl::Global;
  +    'Apache::ROOT' . $_[0];
  +}
  +
   sub clear_rgy_endav {
  +    my($r, $script_name) = @_;
  +    my $package = rgy_script_name($script_name);
  +    ModPerl::Global::special_list_clear(END => $package);
   }
   
   sub stash_rgy_endav {
  +    my($r, $script_name) = @_;
  +    my $package = rgy_script_name($script_name);
  +    $r->pool->cleanup_register(sub {
  +        ModPerl::Global::special_list_call(END => $package);
  +    });
   }
   
   sub seqno {
  
  
  

Mime
View raw message