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/06 18:44:07 UTC
cvs commit: modperl/src/modules/perl perl_config.c
dougm 98/08/06 09:44:06
Modified: . ToDo Changes
src/modules/perl perl_config.c
Log:
move mod_perl_cleanup_av outside of #ifdef PERL_DIRECTIVE_HANDLERS to
cure compile problem spotted by David-Michael Lincke
Revision Changes Path
1.58 +9 -3 modperl/ToDo
Index: ToDo
===================================================================
RCS file: /export/home/cvs/modperl/ToDo,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -r1.57 -r1.58
--- ToDo 1998/08/03 15:34:45 1.57
+++ ToDo 1998/08/06 16:44:04 1.58
@@ -16,9 +16,15 @@
(well, close to it anyhow)
---------------------------------------------------------------------------
-From: David-Michael Lincke <mc...@unisg.ch>
-Subject: Unresolved symbol building mod_perl-1.15/Apache 1.3.1 with
- certain handler combination
+From: andreas.koenig@kulturbox.de (Andreas J. Koenig)
+Subject: Bug in <Perl> sections
+
+- make 'make test_report' more useful
+
+- $r->header_out->get in list context
+
+- ap_scan_script_header_err_string? and/or update cgi_header_out to
+ take action on Last-Modified header
- Apache::exit broken under Apache::PerlRun (not seen w/ package declaration)
1.101 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /export/home/cvs/modperl/Changes,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -r1.100 -r1.101
--- Changes 1998/08/03 22:55:19 1.100
+++ Changes 1998/08/06 16:44:04 1.101
@@ -8,6 +8,9 @@
=item 1.15_01-dev
+move mod_perl_cleanup_av outside of #ifdef PERL_DIRECTIVE_HANDLERS to
+cure compile problem spotted by David-Michael Lincke
+
Fixed problem with 'POST' requests when using Apache::Include
[Doug Bagley <do...@dejanews.com>]
1.27 +10 -10 modperl/src/modules/perl/perl_config.c
Index: perl_config.c
===================================================================
RCS file: /export/home/cvs/modperl/src/modules/perl/perl_config.c,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- perl_config.c 1998/07/30 15:37:23 1.26
+++ perl_config.c 1998/08/06 16:44:06 1.27
@@ -629,6 +629,16 @@
return perl_pod_end_magic;
}
+void mod_perl_cleanup_av(void *data)
+{
+ AV *av = (AV*)data;
+ if(SvREFCNT((SV*)av)) {
+ MP_TRACE_g(fprintf(stderr, "cleanup_av: SvREFCNT(0x%lx)==%d\n",
+ (unsigned long)av, (int)SvREFCNT((SV*)av)));
+ SvREFCNT_dec((SV*)av);
+ }
+}
+
#ifdef PERL_DIRECTIVE_HANDLERS
CHAR_P perl_cmd_perl_TAKE1(cmd_parms *cmd, mod_perl_perl_dir_config *data, char *one)
@@ -736,16 +746,6 @@
new->class = basevp->class;
}
return (void *)new;
-}
-
-void mod_perl_cleanup_av(void *data)
-{
- AV *av = (AV*)data;
- if(SvREFCNT((SV*)av)) {
- MP_TRACE_g(fprintf(stderr, "cleanup_av: SvREFCNT(0x%lx)==%d\n",
- (unsigned long)av, (int)SvREFCNT((SV*)av)));
- SvREFCNT_dec((SV*)av);
- }
}
void perl_perl_cmd_cleanup(void *data)