From c682a2af4035b8fc25ef591f11edb7e57bd51179 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 14 Oct 2021 03:01:09 +0000 Subject: CTAN sync 202110140301 --- systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl') 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"} { -- cgit v1.2.3