From fa2a03a1bf7c810f5d6fb14da98de6d4526339af Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 7 Dec 2012 15:51:25 +0000
Subject: add proper runtime-detection to pkgb.so

---
 unix/dltest/pkgb.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/unix/dltest/pkgb.c b/unix/dltest/pkgb.c
index 9c199ca..1a362ef 100644
--- a/unix/dltest/pkgb.c
+++ b/unix/dltest/pkgb.c
@@ -98,6 +98,11 @@ Pkgb_UnsafeObjCmd(
     return Tcl_EvalEx(interp, "list unsafe command invoked", -1, TCL_EVAL_GLOBAL);
 }
 
+#if (TCL_MAJOR_VERSION > 8)
+#  define Tcl_GetDefaultEncodingDir ((const char *(*)(void)) \
+     ((&(tclStubsPtr->tcl_PkgProvideEx))[341]))
+#endif
+
 static int
 Pkgb_DemoObjCmd(
     ClientData dummy,		/* Not used. */
@@ -105,7 +110,11 @@ Pkgb_DemoObjCmd(
     int objc,			/* Number of arguments. */
     Tcl_Obj *const objv[])	/* Argument objects. */
 {
-    const char *foo = Tcl_GetDefaultEncodingDir();
+    if(!Tcl_GetDefaultEncodingDir) {
+	Tcl_SetObjResult(interp, Tcl_NewStringObj("not supported", -1));
+	return TCL_ERROR;
+    }
+    Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_GetDefaultEncodingDir(), -1));
     return TCL_OK;
 }
 
-- 
cgit v0.12