summaryrefslogtreecommitdiffstats
path: root/unix/tclLoadDld.c
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2002-01-10 22:03:12 (GMT)
committerKevin B Kenny <kennykb@acm.org>2002-01-10 22:03:12 (GMT)
commit5e7ccf3264eac7d1be3cf6769e308a98fcc7da99 (patch)
treeef81ed9a568d6a39fa48fff5cf6ff11aac4a5734 /unix/tclLoadDld.c
parente6fe1f73775a6e0543e6e4f97f7167175a96ea81 (diff)
downloadtcl-5e7ccf3264eac7d1be3cf6769e308a98fcc7da99.zip
tcl-5e7ccf3264eac7d1be3cf6769e308a98fcc7da99.tar.gz
tcl-5e7ccf3264eac7d1be3cf6769e308a98fcc7da99.tar.bz2
Applied patch from bug 501101.
Diffstat (limited to 'unix/tclLoadDld.c')
-rw-r--r--unix/tclLoadDld.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclLoadDld.c b/unix/tclLoadDld.c
index 7d8a58d..f1c1589 100644
--- a/unix/tclLoadDld.c
+++ b/unix/tclLoadDld.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclLoadDld.c,v 1.7 2002/01/09 19:09:28 kennykb Exp $
+ * RCS: @(#) $Id: tclLoadDld.c,v 1.8 2002/01/10 22:03:12 kennykb Exp $
*/
#include "tclInt.h"
@@ -93,7 +93,7 @@ TclpLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr,
firstTime = 0;
}
- if ((returnCode = dld_link(Tcl_GetString(pathPtr)) != 0) {
+ if ((returnCode = dld_link(Tcl_GetString(pathPtr))) != 0) {
Tcl_AppendResult(interp, "couldn't load file \"",
Tcl_GetString(pathPtr),
"\": ", dld_strerror(returnCode), (char *) NULL);