/[cvs]/eggdrop1.8/src/dcc.c
ViewVC logotype

Diff of /eggdrop1.8/src/dcc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.10 by thommey, Sat Feb 26 19:22:37 2011 UTC revision 1.11 by thommey, Sat Jun 16 16:04:02 2012 UTC
# Line 1931  static int call_tcl_func(char *name, int Line 1931  static int call_tcl_func(char *name, int
1931    Tcl_SetVar(interp, "_a", args, 0);    Tcl_SetVar(interp, "_a", args, 0);
1932    if (Tcl_VarEval(interp, name, " $_n $_a", NULL) == TCL_ERROR) {    if (Tcl_VarEval(interp, name, " $_n $_a", NULL) == TCL_ERROR) {
1933      putlog(LOG_MISC, "*", DCC_TCLERROR, name, tcl_resultstring());      putlog(LOG_MISC, "*", DCC_TCLERROR, name, tcl_resultstring());
1934        Tcl_BackgroundError(interp);
1935      return -1;      return -1;
1936    }    }
1937    return tcl_resultint();    return tcl_resultint();

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23