diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-17 08:51:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-17 08:51:38 (GMT) |
| commit | eb08a10e38e909d85338f6375638efa08bf0c639 (patch) | |
| tree | df4beb9d97d59a7eb678c120a893509fdcc99278 /generic/tclLoad.c | |
| parent | 3b3abe0ce145a48c4426746f839aa29867e5991b (diff) | |
| download | tcl-eb08a10e38e909d85338f6375638efa08bf0c639.zip tcl-eb08a10e38e909d85338f6375638efa08bf0c639.tar.gz tcl-eb08a10e38e909d85338f6375638efa08bf0c639.tar.bz2 | |
Fix [8cd2fe7474]: "unload" command Bug (when handling multiple libs)
Diffstat (limited to 'generic/tclLoad.c')
| -rw-r--r-- | generic/tclLoad.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index ac863b9..2891884 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -834,7 +834,7 @@ Tcl_UnloadObjCmd( for (ipPrevPtr = ipPtr; ipPtr != NULL; ipPrevPtr = ipPtr, ipPtr = ipPtr->nextPtr) { - if (ipPtr->pkgPtr == pkgPtr) { + if (ipPtr->pkgPtr == defaultPtr) { ipPrevPtr->nextPtr = ipPtr->nextPtr; break; } |