this allows $r->parms to be set from another Apache::Request object or
from a table created by Apache::Table->new
i'll commit later, unless anybody sees a problem..
Index: Request/Request.xs
===================================================================
RCS file: /home/cvs/httpd-apreq/Request/Request.xs,v
retrieving revision 1.8
diff -u -r1.8 Request.xs
--- Request/Request.xs 2001/01/10 00:49:46 1.8
+++ Request/Request.xs 2001/01/26 18:51:50
@@ -162,11 +162,18 @@
Apache::Request req
void
-ApacheRequest_parms(req)
+ApacheRequest_parms(req, parms=NULL)
Apache::Request req
+ Apache::Table parms
CODE:
- ApacheRequest_parse(req);
+ if (parms) {
+ req->parms = parms->utable;
+ req->parsed = 1;
+ }
+ else {
+ ApacheRequest_parse(req);
+ }
ST(0) = mod_perl_tie_table(req->parms);
void