}
/* Thread-safe version */
-static int Rrd_Flush(
+static int Rrd_Flushcached(
ClientData __attribute__((unused)) clientData,
Tcl_Interp *interp,
int argc,
return TCL_ERROR;
}
- rrd_cmd_flush(argc, (char**)argv);
+ rrd_flushcached(argc, (char**)argv);
if (rrd_test_error()) {
Tcl_AppendResult(interp, "RRD Error: ",
* Must dup() file descriptor so we can fclose(stream), otherwise the fclose()
* would close Tcl's file descriptor
*/
- if ((fd2 = dup((int) fd1)) == -1) {
+ if ((fd2 = dup((int)fd1)) == -1) {
Tcl_AppendResult(interp,
"dup() failed for file descriptor associated with \"",
argv[1], "\": ", strerror(errno), (char *) NULL);
static CmdInfo rrdCmds[] = {
{"Rrd::create", Rrd_Create, 1}, /* Thread-safe version */
{"Rrd::dump", Rrd_Dump, 0}, /* Thread-safe version */
- {"Rrd::flush", Rrd_Flush, 0},
+ {"Rrd::flushcached", Rrd_Flushcached, 0},
{"Rrd::last", Rrd_Last, 0}, /* Thread-safe version */
{"Rrd::lastupdate", Rrd_Lastupdate, 0}, /* Thread-safe version */
{"Rrd::update", Rrd_Update, 1}, /* Thread-safe version */
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;
}