texlive[50494] Master/texmf-dist/scripts/tlshell/tlshell.tcl: Fix

[commits+siepo at tug.org]

Revision: 50494
          http://tug.org/svn/texlive?view=revision&revision=50494
Author:   siepo
Date:     2019-03-21 02:07:37 +0100 (Thu, 21 Mar 2019)
Log Message:
-----------
Fix windows path bug

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl

Modified: trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl
===================================================================
--- trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2019-03-20 22:57:54 UTC (rev 50493)
+++ trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2019-03-21 01:07:37 UTC (rev 50494)
@@ -11,27 +11,22 @@
 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]