diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-06-27 15:35:37 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-06-27 15:35:37 (GMT) |
| commit | 9237f2327b9ce8ef521cc5d1019606992d1adfc0 (patch) | |
| tree | 7afb979184949759bd0d56ac7b96171785fd51d5 | |
| parent | 61f664036798fb06c0afd73d8aad28bc1c9df816 (diff) | |
| download | tcl-9237f2327b9ce8ef521cc5d1019606992d1adfc0.zip tcl-9237f2327b9ce8ef521cc5d1019606992d1adfc0.tar.gz tcl-9237f2327b9ce8ef521cc5d1019606992d1adfc0.tar.bz2 | |
zipfs.test: fixed error (couldn't open "...": permission denied) if $tclzip points to directory, due to empty pkgconfig in runtime/debug environment (e. g. no zipped library)
| -rw-r--r-- | tests/zipfs.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/zipfs.test b/tests/zipfs.test index 782d032..2ecbdfa 100644 --- a/tests/zipfs.test +++ b/tests/zipfs.test @@ -45,7 +45,7 @@ if {![string match ${ziproot}* $tcl_library]} { # archive ### set tclzip [file join $CWD [::tcl::pkgconfig get zipfile,runtime]] - testConstraint zipfslib [file exists $tclzip] + testConstraint zipfslib [file isfile $tclzip] if {[testConstraint zipfslib]} { zipfs mount /lib/tcl $tclzip set ::tcl_library ${ziproot}lib/tcl/tcl_library |