dougm 00/09/28 12:28:39
Modified: . Changes ToDo
src/modules/perl Apache.xs
Log:
Apache::SubRequest->run(1) allows ap_send_http_headers() to output for
subrequests
Revision Changes Path
1.536 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.535
retrieving revision 1.536
diff -u -r1.535 -r1.536
--- Changes 2000/09/28 17:46:58 1.535
+++ Changes 2000/09/28 19:28:27 1.536
@@ -10,6 +10,9 @@
=item 1.24_01-dev
+Apache::SubRequest->run(1) allows ap_send_http_headers() to output for
+subrequests
+
Apache::{Registry,PerlRun} will now log an error if $filename is NOT_FOUND
thanks to Martin Wood for the spot
1.260 +1 -4 modperl/ToDo
Index: ToDo
===================================================================
RCS file: /home/cvs/modperl/ToDo,v
retrieving revision 1.259
retrieving revision 1.260
diff -u -r1.259 -r1.260
--- ToDo 2000/09/28 15:18:59 1.259
+++ ToDo 2000/09/28 19:28:28 1.260
@@ -27,12 +27,9 @@
- add Filter::Call support to Apache::RegistryNG (or subclass of)
-- Perl{Eval,Do} directives [Salvador Ortiz Garcia <[EMAIL PROTECTED]>]
+- PerlEval directive [Salvador Ortiz Garcia <[EMAIL PROTECTED]>]
- add srand stuff ?
-
-- Apache::SubRequest->run(1) allows ap_send_http_headers() to output
- for subrequests
- allow $r->server->uid($new_uid) ?
[Rob Giseburt <[EMAIL PROTECTED]>]
1.114 +6 -1 modperl/src/modules/perl/Apache.xs
Index: Apache.xs
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.113
retrieving revision 1.114
diff -u -r1.113 -r1.114
--- Apache.xs 2000/09/28 17:46:59 1.113
+++ Apache.xs 2000/09/28 19:28:33 1.114
@@ -2027,10 +2027,15 @@
"Apache::SubRequest::DESTROY(0x%lx)\n", (unsigned long)r));
int
-run(r)
+run(r, allow_send_header=0)
Apache::SubRequest r
+ int allow_send_header
CODE:
+ if (allow_send_header) {
+ r->assbackwards = 0;
+ }
+
RETVAL = run_sub_req(r);
OUTPUT: