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 2002/03/12 09:33:57 UTC
cvs commit: tcl-rivet/src TclWebapache.c
damonc 02/03/12 00:33:57
Modified: src TclWebapache.c
Log:
Cleaning up some warnings.
Revision Changes Path
1.14 +4 -4 tcl-rivet/src/TclWebapache.c
Index: TclWebapache.c
===================================================================
RCS file: /home/cvs/tcl-rivet/src/TclWebapache.c,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- TclWebapache.c 12 Mar 2002 06:51:57 -0000 1.13
+++ TclWebapache.c 12 Mar 2002 08:33:57 -0000 1.14
@@ -7,7 +7,7 @@
* operations.
*/
-/* $Id: TclWebapache.c,v 1.13 2002/03/12 06:51:57 damonc Exp $ */
+/* $Id: TclWebapache.c,v 1.14 2002/03/12 08:33:57 damonc Exp $ */
#include <tcl.h>
@@ -576,10 +576,10 @@
char *
TclWeb_GetEnvVar( TclWebRequest *req, char *key )
{
- const char *val;
+ char *val;
/* Check to see if it's a header variable first. */
- val = ap_table_get( req->req->headers_in, key );
+ (const char *)val = ap_table_get( req->req->headers_in, key );
if( !val ) {
/* Ensure that the system area which holds the cgi variables is empty */
@@ -589,7 +589,7 @@
ap_add_cgi_vars( req->req );
ap_add_common_vars( req->req );
- val = ap_table_get( req->req->subprocess_env, key );
+ (const char *)val = ap_table_get( req->req->subprocess_env, key );
}
return val;
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-dev-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-dev-help@tcl.apache.org