diff options
| author | Pietro Cerutti <gahr@FreeBSD.org> | 2013-05-21 13:46:08 +0000 |
|---|---|---|
| committer | Pietro Cerutti <gahr@FreeBSD.org> | 2013-05-21 13:46:08 +0000 |
| commit | b5c202454b653feb81871d00030cff1f256728cb (patch) | |
| tree | e1af4b5cf680b6b12aaf6d40506e42b7f6e1e53c /net/nam | |
| parent | 68c07070f33186961b12d0d941e498dedc5920ff (diff) | |
| download | ports-b5c202454b653feb81871d00030cff1f256728cb.tar.gz ports-b5c202454b653feb81871d00030cff1f256728cb.zip | |
Notes
Diffstat (limited to 'net/nam')
| -rw-r--r-- | net/nam/files/patch-main.cc | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/net/nam/files/patch-main.cc b/net/nam/files/patch-main.cc new file mode 100644 index 000000000000..b46dcf8654a9 --- /dev/null +++ b/net/nam/files/patch-main.cc @@ -0,0 +1,38 @@ +--- main.cc.orig 2013-05-21 15:33:25.000000000 +0200 ++++ main.cc 2013-05-21 15:40:33.000000000 +0200 +@@ -222,7 +222,7 @@ + + static int cmd_version(ClientData , Tcl_Interp* tcl, int , CONST84 char **) + { +- tcl->result = version; ++ Tcl_SetObjResult(tcl, Tcl_NewStringObj(version, -1)); + return (TCL_OK); + } + +@@ -331,7 +331,7 @@ + + Tcl_Interp *interp = Tcl_CreateInterp(); + if (Tcl_Init(interp) == TCL_ERROR) { +- printf("%s\n", interp->result); ++ printf("%s\n", Tcl_GetStringResult(interp)); + abort(); + } + +@@ -350,7 +350,7 @@ + #endif + + if (Otcl_Init(interp) == TCL_ERROR) { +- printf("%s\n", interp->result); ++ printf("%s\n", Tcl_GetStringResult(interp)); + abort(); + } + #ifdef HAVE_LIBTCLDBG +@@ -372,7 +372,7 @@ + if (Tk_Init(tcl.interp()) == TCL_OK) + tk = Tk_MainWindow(tcl.interp()); + if (tk == 0) { +- fprintf(stderr, "nam: %s\n", interp->result); ++ fprintf(stderr, "nam: %s\n", Tcl_GetStringResult(interp)); + exit(1); + } + tcl.tkmain(tk); |