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 {
