diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-10 09:45:34 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-10 09:45:34 (GMT) |
commit | 30858a86531e0952e6be9be87173baa4fdbed5c4 (patch) | |
tree | 778cca2855e4a2ff8ccf1d80a6a62ad93f8933e4 /generic/tclZipfs.c | |
parent | 8de20ba3ad4205bad30317b56c5f76b19be5cd7f (diff) | |
parent | 110e6cae5e332cfbbbf35253b9dea01162a96975 (diff) | |
download | tcl-30858a86531e0952e6be9be87173baa4fdbed5c4.zip tcl-30858a86531e0952e6be9be87173baa4fdbed5c4.tar.gz tcl-30858a86531e0952e6be9be87173baa4fdbed5c4.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclZipfs.c')
-rw-r--r-- | generic/tclZipfs.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index f3e1e33..b63cce7 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -3033,7 +3033,7 @@ ZipFSMkZipOrImg( } } Tcl_IncrRefCount(list); - if (Tcl_ListObjGetElements(interp, list, &lobjc, &lobjv) != TCL_OK) { + if (TclListObjGetElements(interp, list, &lobjc, &lobjv) != TCL_OK) { Tcl_DecrRefCount(list); return TCL_ERROR; } |