You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1998/08/13 03:49:09 UTC
cvs commit: modperl/t/net/perl hooks.pl
dougm 98/08/12 18:49:09
Modified: . Changes ToDo
src/modules/perl mod_perl.c
t/net/perl hooks.pl
Log:
PerlCleanupHandler is now run by a register_cleanup(), rather than an
alias for PerlLogHandler
Revision Changes Path
1.109 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /export/home/cvs/modperl/Changes,v
retrieving revision 1.108
retrieving revision 1.109
diff -u -r1.108 -r1.109
--- Changes 1998/08/13 01:46:25 1.108
+++ Changes 1998/08/13 01:49:06 1.109
@@ -8,6 +8,9 @@
=item 1.15_01-dev
+PerlCleanupHandler is now run by a register_cleanup(), rather than an
+alias for PerlLogHandler
+
get rid of warning in Apache::RedirectLogFix [Brian Moseley <ix...@maz.org>]
added $r->internal_redirect method
1.62 +2 -1 modperl/ToDo
Index: ToDo
===================================================================
RCS file: /export/home/cvs/modperl/ToDo,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -r1.61 -r1.62
--- ToDo 1998/08/11 16:52:38 1.61
+++ ToDo 1998/08/13 01:49:07 1.62
@@ -18,8 +18,9 @@
- ap_log_error -> ap_log_rerror
+- Apache::Constants :override :args_how
+
- PerlInitHandler - alias to first available
- PerlCleanupHandler - register_cleanup
- make 'make test_report' more useful
1.38 +6 -7 modperl/src/modules/perl/mod_perl.c
Index: mod_perl.c
===================================================================
RCS file: /export/home/cvs/modperl/src/modules/perl/mod_perl.c,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -r1.37 -r1.38
--- mod_perl.c 1998/08/07 22:00:09 1.37
+++ mod_perl.c 1998/08/13 01:49:08 1.38
@@ -828,21 +828,20 @@
{
dSTATUS;
dPPDIR;
- int rstatus;
PERL_CALLBACK("PerlLogHandler", cld->PerlLogHandler);
- rstatus = status;
-#ifdef PERL_CLEANUP
- PERL_CALLBACK("PerlCleanupHandler", cld->PerlCleanupHandler);
-#endif
- return rstatus;
+ return status;
}
#endif
void mod_perl_end_cleanup(void *data)
{
request_rec *r = (request_rec *)data;
- MP_TRACE_g(fprintf(stderr, "perl_end_cleanup..."));
+ dSTATUS;
+ dPPDIR;
+ PERL_CALLBACK("PerlCleanupHandler", cld->PerlCleanupHandler);
+
+ MP_TRACE_g(fprintf(stderr, "perl_end_cleanup..."));
perl_run_rgy_endav(r->uri);
/* clear %ENV */
1.7 +2 -1 modperl/t/net/perl/hooks.pl
Index: hooks.pl
===================================================================
RCS file: /export/home/cvs/modperl/t/net/perl/hooks.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- hooks.pl 1998/07/18 22:10:05 1.6
+++ hooks.pl 1998/08/13 01:49:09 1.7
@@ -38,7 +38,8 @@
my($hook, $package, $retval);
-for (qw(Access Authen Authz Fixup Cleanup
+#hmm, Cleanup doesn't seem to work in .htaccess with register_cleanup()
+for (qw(Access Authen Authz Fixup
HeaderParser Init Log Type Trans)) {
next unless Apache::perl_hook($_);
$tests++;