diff options
author | Norbert Preining <preining@logic.at> | 2008-01-11 07:46:38 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-11 07:46:38 +0000 |
commit | 43663f4060aae93588ba974aa42f8a4337d5f331 (patch) | |
tree | cab6465a45f34b07cdcbd4cac56e8844e0ae038c /Master/install-tl.pl | |
parent | a085c27f4e2244e388b7cac1fc3eacd6bc2b90f6 (diff) |
more decent logging, and less rogue terminal output
git-svn-id: svn://tug.org/texlive/trunk@6185 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl.pl')
-rwxr-xr-x | Master/install-tl.pl | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl index 9ebd7078066..7c69aed78ab 100755 --- a/Master/install-tl.pl +++ b/Master/install-tl.pl @@ -665,10 +665,11 @@ sub do_postinst_stuff { $path = $ENV{'PATH'}; } if (win32()) { - $path = "$vars{'TEXDIR'}/bin/$vars{'this_platform'};$vars{'TEXDIR'}/tlpkg/bin;$path"; + $path = "$vars{'TEXDIR'}/bin/$vars{'this_platform'};$path"; } else { - $path = "$vars{'TEXDIR'}/bin/$vars{'this_platform'}:$vars{'TEXDIR'}/tlpkg/bin:$path"; + $path = "$vars{'TEXDIR'}/bin/$vars{'this_platform'}:$path"; } + tllog($::LOG_NORMAL,"Setting PATH to $path\n"); $ENV{'PATH'} = "$path"; # Step 3: Make Perl find the right modules if (win32()) { @@ -687,14 +688,21 @@ sub do_postinst_stuff { my $perlint = (win32() ? "$vars{'TEXDIR'}/tlpkg/tlperl/bin/perl.exe" : ""); # for arch != win32 $perlint is empty so the usual perl invocation is done if (win32()) { + tllog($::LOG_NORMAL, "running ${perlint} $vars{'TEXDIR'}/tlpkg/bin/generate-fmtutil\n"); `"${perlint}" "$vars{'TEXDIR'}/tlpkg/bin/generate-fmtutil"`; + tllog($::LOG_NORMAL, "running ${perlint} $vars{'TEXDIR'}/tlpkg/bin/generate-updmap\n"); `"${perlint}" "$vars{'TEXDIR'}/tlpkg/bin/generate-updmap"`; + tllog($::LOG_NORMAL, "running ${perlint} $vars{'TEXDIR'}/tlpkg/bin/generate-language\n"); `"${perlint}" "$vars{'TEXDIR'}/tlpkg/bin/generate-language"`; } else { - `generate-fmtutil`; - `generate-updmap`; - `generate-language`; - } + tllog($::LOG_NORMAL, "running $vars{'TEXDIR'}/tlpkg/bin/generate-fmtutil\n"); + `"$vars{'TEXDIR'}/tlpkg/bin/generate-fmtutil"`; + tllog($::LOG_NORMAL, "running $vars{'TEXDIR'}/tlpkg/bin/generate-updmap\n"); + `"$vars{'TEXDIR'}/tlpkg/bin/generate-updmap"`; + tllog($::LOG_NORMAL, "running $vars{'TEXDIR'}/tlpkg/bin/generate-language\n"); + `"$vars{'TEXDIR'}/tlpkg/bin/generate-language"`; + } + tllog($::LOG_NORMAL, "running mktexlsr $vars{'TEXDIR'}/texmf-dist $vars{'TEXDIR'}/texmf $vars{'TEXDIR'}/texmf-local\n"); `mktexlsr "$vars{'TEXDIR'}/texmf-dist" "$vars{'TEXDIR'}/texmf" "$vars{'TEXDIR'}/texmf-local"`; # my $updmap = (win32() ? "$perlint $vars{'TEXDIR'}/bin/win32/updmap-sys.pl" : "updmap-sys"); # `$updmap --nohash`; @@ -705,13 +713,14 @@ sub do_postinst_stuff { $pathext .= ";.texlua"; $ENV{'PATHEXT'} = $pathext; } + tllog($::LOG_NORMAL, "running updmap-sys\n"); `updmap-sys --nohash`; + tllog($::LOG_NORMAL, "re-running mktexlsr $vars{'TEXMFSYSVAR'}\n"); `mktexlsr "$vars{'TEXMFSYSVAR'}"`; # old installer: #$config && texconfig-sys init #$config || echo "PLEASE RUN texconfig or texconfig-sys to make new formats." - } # we have to adjust the texmf.cnf file to the paths set in the configuration! |