You are viewing a plain text version of this content. The canonical link for it is here.
Posted to dev@perl.apache.org by "Philippe M. Chiasson" <go...@cpan.org> on 2002/03/09 19:36:06 UTC

[Patch] Fix to follow httpd small filtering change

Apparently something changed in the filtering code, and here is what I had
to do to get all the filter/* tests to pass once again.

Index: src/modules/perl/modperl_filter.c
===================================================================
RCS file: /home/gozer/mirror/cvs.apache.org/modperl-2.0-cvs/src/modules/perl/modperl_filter.c,v
retrieving revision 1.31
diff -u -b -B -r1.31 modperl_filter.c
--- src/modules/perl/modperl_filter.c	25 Jan 2002 04:04:22 -0000	1.31
+++ src/modules/perl/modperl_filter.c	9 Mar 2002 18:30:13 -0000
@@ -506,7 +506,7 @@
 
             ctx = (modperl_filter_ctx_t *)apr_pcalloc(r->pool, sizeof(*ctx));
             ctx->handler = handlers[i];
-            addfunc(name, (void*)ctx, r, NULL);
+            addfunc(name, (void*)ctx, r, r->connection);
         }
 
         return OK;
Index: src/modules/perl/mod_perl.c
===================================================================
RCS file: /home/gozer/mirror/cvs.apache.org/modperl-2.0-cvs/src/modules/perl/mod_perl.c,v
retrieving revision 1.108
diff -u -b -B -r1.108 mod_perl.c
--- src/modules/perl/mod_perl.c	26 Feb 2002 19:01:38 -0000	1.108
+++ src/modules/perl/mod_perl.c	9 Mar 2002 18:22:28 -0000
@@ -504,11 +504,11 @@
 
     ap_register_output_filter(MODPERL_OUTPUT_FILTER_NAME,
                               modperl_output_filter_handler,
-                              AP_FTYPE_CONTENT);
+                              AP_FTYPE_CONTENT_SET);
 
     ap_register_input_filter(MODPERL_INPUT_FILTER_NAME,
                              modperl_input_filter_handler,
-                             AP_FTYPE_CONTENT);
+                             AP_FTYPE_CONTENT_SET);
 
     ap_hook_pre_connection(modperl_hook_pre_connection,
                            NULL, NULL, APR_HOOK_FIRST);


---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org