13 lines
482 B
Plaintext
13 lines
482 B
Plaintext
$OpenBSD: patch-tcl_tcl_util_c,v 1.3 2007/10/26 14:06:02 steven Exp $
|
|
--- tcl/tcl_util.c.orig Thu May 17 17:15:54 2007
|
|
+++ tcl/tcl_util.c Sat Sep 15 12:39:57 2007
|
|
@@ -43,7 +43,7 @@ bdb_RandCommand(interp, objc, objv)
|
|
* in the 'berkdb' command.
|
|
*/
|
|
if (Tcl_GetIndexFromObj(interp,
|
|
- objv[1], rcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
|
|
+ objv[1], (CONST84 char **)rcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
|
|
return (IS_HELP(objv[1]));
|
|
|
|
res = NULL;
|