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

Reply via email to