You are viewing a plain text version of this content. The canonical link for it is here.
Posted to rivet-dev@tcl.apache.org by da...@apache.org on 2004/02/20 00:23:48 UTC
cvs commit: tcl-rivet/src TclWebapache.c rivetCore.c
davidw 2004/02/19 15:23:48
Modified: . ChangeLog
doc rivet.xml
src TclWebapache.c rivetCore.c
Log:
* src/TclWebapache.c (TclWeb_SetHeaderType): strdup object's string
value so we have our own copy of it.
Revision Changes Path
1.167 +5 -0 tcl-rivet/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /home/cvs/tcl-rivet/ChangeLog,v
retrieving revision 1.166
retrieving revision 1.167
diff -u -r1.166 -r1.167
--- ChangeLog 19 Feb 2004 09:46:47 -0000 1.166
+++ ChangeLog 19 Feb 2004 23:23:48 -0000 1.167
@@ -1,3 +1,8 @@
+2004-02-20 David N. Welton <da...@dedasys.com>
+
+ * src/TclWebapache.c (TclWeb_SetHeaderType): strdup object's
+ string value so we have our own copy of it.
+
2004-02-19 David N. Welton <da...@dedasys.com>
* doc/rivet.xml: Added some additional comments regarding the
1.41 +2 -2 tcl-rivet/doc/rivet.xml
Index: rivet.xml
===================================================================
RCS file: /home/cvs/tcl-rivet/doc/rivet.xml,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -r1.40 -r1.41
--- rivet.xml 19 Feb 2004 09:46:47 -0000 1.40
+++ rivet.xml 19 Feb 2004 23:23:48 -0000 1.41
@@ -37,7 +37,7 @@
</para>
<para>
- Document reversion: $Revision$, last modified $Date$ by $Author$.
+ Document revision: $Revision$, last modified $Date$ by $Author$.
</para>
<section>
1.46 +2 -2 tcl-rivet/src/TclWebapache.c
Index: TclWebapache.c
===================================================================
RCS file: /home/cvs/tcl-rivet/src/TclWebapache.c,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -r1.45 -r1.46
--- TclWebapache.c 30 Sep 2003 18:27:47 -0000 1.45
+++ TclWebapache.c 19 Feb 2004 23:23:48 -0000 1.46
@@ -65,7 +65,7 @@
if(req->headers_set)
return TCL_ERROR;
- req->req->content_type = header;
+ req->req->content_type = ap_pstrdup(req->req->pool, header);
req->headers_set = 1;
return TCL_OK;
}
1.39 +2 -2 tcl-rivet/src/rivetCore.c
Index: rivetCore.c
===================================================================
RCS file: /home/cvs/tcl-rivet/src/rivetCore.c,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -r1.38 -r1.39
--- rivetCore.c 20 Dec 2003 09:25:11 -0000 1.38
+++ rivetCore.c 19 Feb 2004 23:23:48 -0000 1.39
@@ -279,7 +279,7 @@
Tcl_WrongNumArgs(interp, 2, objv, "mime/type");
return TCL_ERROR;
}
- TclWeb_SetHeaderType(Tcl_GetStringFromObj(objv[2], (int *)NULL), globals->req);
+ TclWeb_SetHeaderType(Tcl_GetString(objv[2]), globals->req);
} else if (!strcmp("numeric", opt)) /* ### numeric ### */
{
int st = 200;
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-cvs-help@tcl.apache.org