Code

Updated to upstream version 1.4.8.
[pkg-rrdtool.git] / bindings / tcl / tclrrd.c
index f1f0234e96855a78835639c009bd6beadb4411d4..869d6c781147f528fd81a98adf03db607434c330 100644 (file)
@@ -8,7 +8,7 @@
  * See the file "COPYING" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * $Id: tclrrd.c 1854 2009-06-07 14:46:21Z oetiker $
+ * $Id$
  */
 
 
@@ -678,7 +678,7 @@ static int init(
     if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL)
         return TCL_ERROR;
 
-    if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION, 1) == NULL) {
+    if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION, 0) == NULL) {
         return TCL_ERROR;
     }