diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl')
-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"} { |