diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-02-11 19:53:00 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-02-11 19:53:00 (GMT) |
commit | b0c71a559b7da374287cc1b4f883df4ddc6f52fb (patch) | |
tree | 0362cd750073f63a89ab4652993ed000d6f7e995 | |
parent | c0b3a0c82c8f3b288fb155f76a3c85a505b38314 (diff) | |
download | blt-b0c71a559b7da374287cc1b4f883df4ddc6f52fb.zip blt-b0c71a559b7da374287cc1b4f883df4ddc6f52fb.tar.gz blt-b0c71a559b7da374287cc1b4f883df4ddc6f52fb.tar.bz2 |
fix ParseURL for zipfs
-rw-r--r-- | ds9/library/util.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index e7e7fce..c897c5f 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -1127,6 +1127,11 @@ proc ParseURL {url varname} { switch $tcl_platform(platform) { unix { switch -- $r(scheme) { + zipfs { + # special case for zipfs + set r(path) "$r(scheme):$r(path)" + set r(scheme) {} + } ftp { # strip any username/passwd set id [string first {@} $r(authority)] |