From 55a5cfef151c4407184245c2cc190cd33ab27ec3 Mon Sep 17 00:00:00 2001
From: gahr <gahr@FreeBSD.org>
Date: Tue, 21 May 2013 13:46:08 +0000
Subject: - Fix build with Tcl/Tk 8.6

Reported by:	miwi (Tcl/Tk 8.6 exp-run latecomers)
Approved by:	portmgr
---
 net/nam/files/patch-main.cc | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 net/nam/files/patch-main.cc

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);
-- 
cgit