From 1b57d412e0f815ce9bb721d5f182d06f5a3b5848 Mon Sep 17 00:00:00 2001 From: Piotr Strzelczyk Date: Sun, 30 Aug 2009 12:31:58 +0000 Subject: fix getting $Master from __FILE__ git-svn-id: svn://tug.org/texlive/trunk@14951 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgr.pl | 6 +++--- 1 file 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 -- cgit v1.2.3