diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-16 14:16:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-16 14:16:48 (GMT) |
| commit | d59509dee2c55942e56ff0f8b540d00c78a99b86 (patch) | |
| tree | e9a454dd1b645130c01a1427c53c72d459b6e6c3 /generic/tclLoad.c | |
| parent | 9a78221b8d5ba5b146f65bdd50f611fa93aa82c9 (diff) | |
| download | tcl-d59509dee2c55942e56ff0f8b540d00c78a99b86.zip tcl-d59509dee2c55942e56ff0f8b540d00c78a99b86.tar.gz tcl-d59509dee2c55942e56ff0f8b540d00c78a99b86.tar.bz2 | |
Proposed fix for [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 f1bd248..dfa657e 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -871,7 +871,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; } |