diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2021-03-07 18:42:27 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2021-03-07 18:42:27 (GMT) |
commit | b9bc37e2b8d6b0ee9fa2839ad1a37f42266d417d (patch) | |
tree | 8da84f881a2fcece514176bf690257f0fcc39ea9 /generic/tclZipfs.c | |
parent | a1d8e47ea7ef4acf4228052d71aa77bf788a9d15 (diff) | |
download | tcl-b9bc37e2b8d6b0ee9fa2839ad1a37f42266d417d.zip tcl-b9bc37e2b8d6b0ee9fa2839ad1a37f42266d417d.tar.gz tcl-b9bc37e2b8d6b0ee9fa2839ad1a37f42266d417d.tar.bz2 |
Added some tests for [zipfs lmkimg]
Diffstat (limited to 'generic/tclZipfs.c')
-rw-r--r-- | generic/tclZipfs.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index bf74823..d1d5deb 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -2424,21 +2424,21 @@ ZipFSMkZipOrImgObjCmd( list = objv[2]; Tcl_IncrRefCount(list); } else { - Tcl_Obj *cmd[3]; + Tcl_Obj *cmd[2]; + int result; /* * Discover the list of files to add. */ - cmd[1] = Tcl_NewStringObj("::tcl::zipfs::find", -1); - cmd[2] = objv[2]; - cmd[0] = Tcl_NewListObj(2, cmd + 1); + cmd[0] = Tcl_NewStringObj("::tcl::zipfs::find", -1); + cmd[1] = objv[2]; Tcl_IncrRefCount(cmd[0]); - if (Tcl_EvalObjEx(interp, cmd[0], TCL_EVAL_DIRECT) != TCL_OK) { - Tcl_DecrRefCount(cmd[0]); + result = Tcl_EvalObjv(interp, 2, cmd, 0); + Tcl_DecrRefCount(cmd[0]); + if (result != TCL_OK) { return TCL_ERROR; } - Tcl_DecrRefCount(cmd[0]); list = Tcl_GetObjResult(interp); Tcl_IncrRefCount(list); } |