Code

fix for tcl bindings ... -- George Ross
authoroetiker <oetiker@a5681a0c-68f1-0310-ab6d-d61299d08faa>
Thu, 2 Feb 2012 15:35:24 +0000 (15:35 +0000)
committeroetiker <oetiker@a5681a0c-68f1-0310-ab6d-d61299d08faa>
Thu, 2 Feb 2012 15:35:24 +0000 (15:35 +0000)
git-svn-id: svn://svn.oetiker.ch/rrdtool/branches/1.4/program@2269 a5681a0c-68f1-0310-ab6d-d61299d08faa

bindings/tcl/tclrrd.c

index a98a2d7c2ac23f82847e8991a5287f4550f74d03..869d6c781147f528fd81a98adf03db607434c330 100644 (file)
@@ -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;
     }