diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-10-02 06:17:12 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-10-02 06:17:12 (GMT) |
| commit | c218617559dba472de85c71f15b43080d2c6ab10 (patch) | |
| tree | 63c65e11d450fca684eb5d6856c88f827761a287 /generic/tclIOUtil.c | |
| parent | 681022822bad59620701b978831cd95e25b9e21f (diff) | |
| download | tcl-c218617559dba472de85c71f15b43080d2c6ab10.zip tcl-c218617559dba472de85c71f15b43080d2c6ab10.tar.gz tcl-c218617559dba472de85c71f15b43080d2c6ab10.tar.bz2 | |
More relatively minor fixes for file ensemble on zipfs
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index c74eb00..9b77a1c 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -3737,8 +3737,13 @@ Tcl_FSLink( { const Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr); - if (fsPtr != NULL && fsPtr->linkProc != NULL) { - return fsPtr->linkProc(pathPtr, toPtr, linkAction); + if (fsPtr) { + if (fsPtr->linkProc == NULL) { + Tcl_SetErrno(ENOTSUP); + return NULL; + } else { + return fsPtr->linkProc(pathPtr, toPtr, linkAction); + } } /* |