#! /bin/sh /usr/share/dpatch/dpatch-run
## 15-invalidlvalue.dpatch by Neil Williams <codehelp@debian.org>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: No description.

@DPATCH@
diff -urNad rivet-0.5.0~/src/TclWebapache.c rivet-0.5.0/src/TclWebapache.c
--- rivet-0.5.0~/src/TclWebapache.c	2006-11-28 01:30:46.000000000 +0000
+++ rivet-0.5.0/src/TclWebapache.c	2006-11-28 01:32:59.000000000 +0000
@@ -660,10 +660,10 @@
     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;
diff -urNad rivet-0.5.0~/src/rivetCore.c rivet-0.5.0/src/rivetCore.c
--- rivet-0.5.0~/src/rivetCore.c	2006-11-28 01:30:46.000000000 +0000
+++ rivet-0.5.0/src/rivetCore.c	2006-11-28 01:32:23.000000000 +0000
@@ -640,7 +640,7 @@
 	if (TclWeb_UploadChannel(varname, &chan, globals->req) != TCL_OK) {
 	    return TCL_ERROR;
 	}
-	(CONST84 char *)channelname = Tcl_GetChannelName(chan);
+	channelname = (char*)Tcl_GetChannelName(chan);
 	Tcl_SetStringObj(result, channelname, -1);
 	break;
     }