diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-03-21 01:07:37 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-03-21 01:07:37 +0000 |
| commit | f6bd97fde1ce8fed36aacc3c9d74f2550664970b (patch) | |
| tree | 2e9834b67f634e59e3a903271cd1af493a75ded3 /Master/texmf-dist | |
| parent | d127cd59126d10b2e8755fd6d9fb6c7b36829b8a (diff) | |
Fix windows path bug
git-svn-id: svn://tug.org/texlive/trunk@50494 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
| -rwxr-xr-x | Master/texmf-dist/scripts/tlshell/tlshell.tcl | 27 |
1 files changed, 11 insertions, 16 deletions
diff --git a/Master/texmf-dist/scripts/tlshell/tlshell.tcl b/Master/texmf-dist/scripts/tlshell/tlshell.tcl index 9c2a7441ea3..a1352ebbc9d 100755 --- a/Master/texmf-dist/scripts/tlshell/tlshell.tcl +++ b/Master/texmf-dist/scripts/tlshell/tlshell.tcl @@ -11,27 +11,22 @@ package require Tk catch {rename send {}} # make sure TL comes first on process searchpath -set texbin [file dirname [file normalize [info script]]] -set savedir [pwd] -cd $texbin -set texbin [pwd] -cd $savedir -# prepend texbin to PATH, unless it is already the _first_ -# path component -set dirs [split $::env(PATH) ":"] if {$::tcl_platform(platform) ne "windows"} { + set texbin [file dirname [file normalize [info script]]] + set savedir [pwd] + cd $texbin + set texbin [pwd] + cd $savedir + # prepend texbin to PATH, unless it is already the _first_ + # path component + set dirs [split $::env(PATH) ":"] if {[lindex $dirs 0] ne $texbin} { set ::env(PATH) "${texbin}:$::env(PATH)" } -} else { - set texbin [file nativename $texbin] - if {[file nativename [lindex $dirs 0]] ne $texbin} { - set ::env(PATH) "${texbin}:$::env(PATH)" - } + unset texbin + unset savedir + unset dirs } -unset texbin -unset savedir -unset dirs # declarations and utilities shared with install-tl-gui.tcl set ::instroot [exec kpsewhich -var-value=TEXMFROOT] |