From f6bd97fde1ce8fed36aacc3c9d74f2550664970b Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Thu, 21 Mar 2019 01:07:37 +0000 Subject: Fix windows path bug git-svn-id: svn://tug.org/texlive/trunk@50494 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/tlshell/tlshell.tcl | 27 +++++++++++---------------- 1 file changed, 11 insertions(+), 16 deletions(-) (limited to 'Master') 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] -- cgit v1.2.3