17 lines
608 B
Text
17 lines
608 B
Text
$NetBSD: patch-ab,v 1.1 2006/08/23 11:22:07 minskim Exp $
|
|
|
|
--- src/TclWebapache.c.orig 2004-12-03 02:17:10.000000000 +0000
|
|
+++ src/TclWebapache.c
|
|
@@ -660,10 +660,10 @@ TclWeb_GetEnvVar( TclWebRequest *req, ch
|
|
TclWeb_InitEnvVars( req );
|
|
|
|
/* Check to see if it's a header variable first. */
|
|
- (const char *)val = ap_table_get( req->req->headers_in, key );
|
|
+ val = (char *)ap_table_get( req->req->headers_in, key );
|
|
|
|
if( !val ) {
|
|
- (const char *)val = ap_table_get( req->req->subprocess_env, key );
|
|
+ val = (char *)ap_table_get( req->req->subprocess_env, key );
|
|
}
|
|
|
|
return val;
|