diff options
| author | hobbs <hobbs> | 2005-10-05 04:23:28 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2005-10-05 04:23:28 (GMT) |
| commit | 7e7f91c8f1a841e4f5eb79bc40eebdac7c153e56 (patch) | |
| tree | 4a3297054e9599dc9a6b220030f3e5ca28b542f7 /unix/tclLoadShl.c | |
| parent | 6581c16e860b1a3ec39b6363acb0db74263f201a (diff) | |
| download | tcl-7e7f91c8f1a841e4f5eb79bc40eebdac7c153e56.zip tcl-7e7f91c8f1a841e4f5eb79bc40eebdac7c153e56.tar.gz tcl-7e7f91c8f1a841e4f5eb79bc40eebdac7c153e56.tar.bz2 | |
* unix/tclLoadShl.c (TclpDlopen): use DYNAMIC_PATH on second
shl_load only. [Bug 1204237]
Diffstat (limited to 'unix/tclLoadShl.c')
| -rw-r--r-- | unix/tclLoadShl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclLoadShl.c b/unix/tclLoadShl.c index 420d6c1..e8c4d32 100644 --- a/unix/tclLoadShl.c +++ b/unix/tclLoadShl.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclLoadShl.c,v 1.14 2005/07/19 13:37:19 dkf Exp $ + * RCS: @(#) $Id: tclLoadShl.c,v 1.15 2005/10/05 04:23:28 hobbs Exp $ */ #include <dl.h> @@ -76,7 +76,7 @@ TclpDlopen(interp, pathPtr, loadHandle, unloadProcPtr) */ native = Tcl_FSGetNativePath(pathPtr); - handle = shl_load(native, BIND_DEFERRED|BIND_VERBOSE|DYNAMIC_PATH, 0L); + handle = shl_load(native, BIND_DEFERRED|BIND_VERBOSE, 0L); if (handle == NULL) { /* |