diff options
author | Piotr Strzelczyk <piotr@eps.gda.pl> | 2009-08-30 12:31:58 +0000 |
---|---|---|
committer | Piotr Strzelczyk <piotr@eps.gda.pl> | 2009-08-30 12:31:58 +0000 |
commit | 1b57d412e0f815ce9bb721d5f182d06f5a3b5848 (patch) | |
tree | 715fb8336de8749b13a6ea89c219f47a6351e8b0 | |
parent | d7a97355bf613182b7baea269ab0173437739478 (diff) |
fix getting $Master from __FILE__
git-svn-id: svn://tug.org/texlive/trunk@14951 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index c711c4380a4..2bf0ffbb2bb 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -39,7 +39,7 @@ BEGIN { $Master = __FILE__; $Master =~ s!\\!/!g; $Master =~ s![^/]*$!../../..! - unless ($Master =~ s!texmf/scripts/texlive/tlmgr\.pl$!!i); + unless ($Master =~ s!/texmf/scripts/texlive/tlmgr\.pl$!!i); $bindir = "$Master/bin/win32"; $kpsewhichname = "kpsewhich.exe"; # path already set by wrapper batchfile @@ -1465,7 +1465,7 @@ sub write_w32_updater { temp\\tar.exe -xf temp\\%%I if errorlevel 1 goto :rollback ) - tlpkg\\tlperl\\bin\\perl.exe texmf\\scripts\\texlive\\tlmgr.pl _include_tlpobj @upd_tlpobj + tlpkg\\tlperl\\bin\\perl.exe .\\texmf\\scripts\\texlive\\tlmgr.pl _include_tlpobj @upd_tlpobj if errorlevel 1 goto :rollback >>$pkg_log echo [%date% %time%] self update: @upd_info >con echo self update: @upd_info @@ -1483,7 +1483,7 @@ sub write_w32_updater { temp\\tar.exe -xf temp\\%%I if errorlevel 1 goto :panic ) - tlpkg\\tlperl\\bin\\perl.exe texmf\\scripts\\texlive\\tlmgr.pl _include_tlpobj @rst_tlpobj + tlpkg\\tlperl\\bin\\perl.exe .\\texmf\\scripts\\texlive\\tlmgr.pl _include_tlpobj @rst_tlpobj if errorlevel 1 goto :panic >>$pkg_log echo [%date% %time%] self restore: @rst_info >con echo self restore: @rst_info |