diff options
author | hypnotoad <yoda@etoyoc.com> | 2018-09-30 10:17:44 (GMT) |
---|---|---|
committer | hypnotoad <yoda@etoyoc.com> | 2018-09-30 10:17:44 (GMT) |
commit | f08ec44049c64c8831a7a9ec18d4efb4cab3bc6f (patch) | |
tree | 1faf027f74b44106cf65e263fff595499a796efd | |
parent | acbdbb87fb4a7dca61c34f8e9a3b212c3a144e50 (diff) | |
download | tcl-f08ec44049c64c8831a7a9ec18d4efb4cab3bc6f.zip tcl-f08ec44049c64c8831a7a9ec18d4efb4cab3bc6f.tar.gz tcl-f08ec44049c64c8831a7a9ec18d4efb4cab3bc6f.tar.bz2 |
Adding logic for static builds to load a properly named zipfile
in the present working directory if that zipfile was not present in
either the install directory or the source directory.
-rw-r--r-- | generic/tclZipfs.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index 19673c8..e634754 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -2933,6 +2933,11 @@ Tcl_Obj *TclZipfs_TclLibrary(void) { if(TclZipfs_AppHook_FindTclInit(CFG_RUNTIME_SCRDIR "/" CFG_RUNTIME_ZIPFILE)==TCL_OK) { return Tcl_NewStringObj(zipfs_literal_tcl_library,-1); } + if(TclZipfs_AppHook_FindTclInit(CFG_RUNTIME_ZIPFILE)==TCL_OK) { + return Tcl_NewStringObj(zipfs_literal_tcl_library,-1); + } +#else + #endif } if(zipfs_literal_tcl_library) { |