Tcl Source Code

Artifact 4b7a315a5899fede7a961f225e01697bd95dcb8c48d33cf86a67d9907216e884:

Attachment "tclZipfs_exists.diff" to ticket [93eb73784a] added by juliannoble2 2023-09-07 13:58:06. (unpublished)

---

Index: generic/tclZipfs.c
==================================================================
--- generic/tclZipfs.c
+++ generic/tclZipfs.c
@@ -3667,31 +3667,19 @@
     int objc,			/* Number of arguments. */
     Tcl_Obj *const objv[])	/* Argument objects. */
 {
     char *filename;
     int exists;
-    Tcl_DString ds;
 
     if (objc != 2) {
-	Tcl_WrongNumArgs(interp, 1, objv, "filename");
-	return TCL_ERROR;
-    }
-
-    /*
-     * Prepend ZIPFS_VOLUME to filename, eliding the final /
-     */
-
-    filename = Tcl_GetString(objv[1]);
-    Tcl_DStringInit(&ds);
-    Tcl_DStringAppend(&ds, ZIPFS_VOLUME, ZIPFS_VOLUME_LEN - 1);
-    Tcl_DStringAppend(&ds, filename, -1);
-    filename = Tcl_DStringValue(&ds);
-
+        Tcl_WrongNumArgs(interp, 1, objv, "filename");
+        return TCL_ERROR;
+    }
+    filename = Tcl_GetString(objv[1]);
     ReadLock();
     exists = ZipFSLookup(filename) != NULL;
     Unlock();
-
     Tcl_SetObjResult(interp, Tcl_NewBooleanObj(exists));
     return TCL_OK;
 }
 
 /*