Diff

Differences From Artifact [ce9351a270]:

To Artifact [430dbcdf6b]:


  1544   1544   
  1545   1545   	appfs_get_path_info_cache_flush(appfs_get_fsuid(), -1);
  1546   1546   
  1547   1547   	interp = appfs_TclInterp();
  1548   1548   	if (interp == NULL) {
  1549   1549   		return(-EIO);
  1550   1550   	}
         1551  +
         1552  +	appfs_call_libtcl(Tcl_Preserve(interp);)
  1551   1553   
  1552   1554   	tcl_ret = appfs_Tcl_Eval(interp, 2, "::appfs::unlinkpath", path);
  1553   1555   	if (tcl_ret != TCL_OK) {
  1554   1556   		APPFS_DEBUG("::appfs::unlinkpath(%s) failed.", path);
  1555   1557   		appfs_call_libtcl(
  1556   1558   			APPFS_DEBUG("Tcl Error is: %s", Tcl_GetStringResult(interp));
  1557   1559   		)