diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2001-04-09 23:09:58 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2001-04-09 23:09:58 (GMT) |
| commit | 9d9a6c3f8f10ce01390a1913400adc27869c688c (patch) | |
| tree | a0ba6edca98daf46e278d7b8466b83e8d3c480f1 /unix/tclLoadShl.c | |
| parent | 17d36faef9d874db9535c846fd672161df37803d (diff) | |
| download | tcl-9d9a6c3f8f10ce01390a1913400adc27869c688c.zip tcl-9d9a6c3f8f10ce01390a1913400adc27869c688c.tar.gz tcl-9d9a6c3f8f10ce01390a1913400adc27869c688c.tar.bz2 | |
Bug #219140: Added DYNAMIC_PATH to the shl_load flags.
Diffstat (limited to 'unix/tclLoadShl.c')
| -rw-r--r-- | unix/tclLoadShl.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/unix/tclLoadShl.c b/unix/tclLoadShl.c index 3330919..0623986 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.3 1999/04/16 00:48:04 stanton Exp $ + * RCS: @(#) $Id: tclLoadShl.c,v 1.4 2001/04/09 23:09:58 kennykb Exp $ */ #include <dl.h> @@ -73,7 +73,9 @@ TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) * when they are build." */ - handle = shl_load(fileName, BIND_DEFERRED|BIND_VERBOSE, 0L); + handle = shl_load(fileName, + BIND_DEFERRED|BIND_VERBOSE|DYNAMIC_PATH, + 0L); if (handle == NULL) { Tcl_AppendResult(interp, "couldn't load file \"", fileName, "\": ", Tcl_PosixError(interp), (char *) NULL); |