diff options
author | Norbert Preining <norbert@preining.info> | 2021-10-14 03:01:09 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-10-14 03:01:09 +0000 |
commit | c682a2af4035b8fc25ef591f11edb7e57bd51179 (patch) | |
tree | e4d66857835b5d00e56e31d06bb525f39c84c715 /systems/texlive/tlnet/tlpkg/tltcl | |
parent | f3646ee8d559655d609cfc1108a77dea360c933a (diff) |
CTAN sync 202110140301
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl b/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl index a02bdd25eb..ed5c01cdcc 100644 --- a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl +++ b/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl @@ -155,7 +155,7 @@ proc mirror_menu {wnd cmd} { } proc possible_repository {s} { - if [regexp {^(https?|ftp):\/\/.+} $s] {return 1} + if [regexp {^(https?|ftp|scp|ssh):\/\/.+} $s] {return 1} if {[string first {file://} $s] == 0} {set s [string range $s 7 end]} if [file isdirectory [file join $s "archive"]] {return 1} if [file isdirectory [file join $s "texmf-dist/web2c"]] {return 1} @@ -647,7 +647,8 @@ proc dir_writable {d} { return 0 } -# unix: choose_dir replacing native directory browser +# unix: choose_dir replacing native directory browser. +# the native FILE browser is ok, though. if {$::tcl_platform(platform) eq "unix"} { |