add perlbindings and optional export filename to rrd_dump -- Nicola Worthington nicol...

[rrdtool.git] / bindings / tcl / tclrrd.c

diff --git a/bindings/tcl/tclrrd.c b/bindings/tcl/tclrrd.c
index 5d4e9b7..e9cff80 100644 (file)
--- a/bindings/tcl/tclrrd.c
+++ b/bindings/tcl/tclrrd.c
@@ -21,6 +21,12 @@
 #include <rrd_tool.h>
 #include <rrd_format.h>
 
+/* support pre-8.4 tcl */
+
+#ifndef CONST84
+#   define CONST84
+#endif
+
 extern int Tclrrd_Init(Tcl_Interp *interp);
 extern int Tclrrd_SafeInit(Tcl_Interp *interp);
 
@@ -189,7 +195,7 @@ Rrd_Dump(ClientData clientData, Tcl_Interp *interp, int argc, CONST84 char *argv
        return TCL_ERROR;
     }
 
-    rrd_dump_r(argv[1]);
+    rrd_dump_r(argv[1], NULL);
 
     /* NOTE: rrd_dump() writes to stdout. No interaction with TCL. */