diff options
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 272d091de9f..b740401a43e 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -34,7 +34,9 @@ our $Master; BEGIN { $^W = 1; # make subprograms (including kpsewhich) have the right path: - ($mydir = $0) =~ s,/[^/]*$,,; + $mydir = $0; + $mydir =~ s!\\!/!g if $^O =~ /^MSWin(32|64)$/i; + $mydir =~ s,/[^/]*$,,; if ($^O=~/^MSWin(32|64)$/i) { $ENV{"PATH"} = "$mydir;$ENV{PATH}"; } else { |