From fa2cae073a1cdb98a1caf1be23721762e8761066 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 18 Apr 2008 12:49:30 +0000 Subject: fix useless output. git-svn-id: svn://tug.org/texlive/trunk@7496 c570f23f-e606-0410-a88d-b1316a301751 --- Master/install-tl.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Master') diff --git a/Master/install-tl.pl b/Master/install-tl.pl index 6184770b6b5..83973e7d867 100755 --- a/Master/install-tl.pl +++ b/Master/install-tl.pl @@ -854,20 +854,20 @@ sub do_postinst_stuff { my $perl_bindir="$TEXDIR/tlpkg/tlperl/bin"; my $perl_libdir="$TEXDIR/tlpkg/tlperl/lib"; - tllog($::LOG_NORMAL, "Prepending $plat_bindir to PATH\n"); + tllog($::LOG_DEBUG, "Prepending $plat_bindir to PATH\n"); $ENV{'PATH'}="$plat_bindir" . "$pathsep" . "$ENV{'PATH'}"; if (win32) { - tllog($::LOG_NORMAL, "Prepending $perl_bindir to PATH\n"); + tllog($::LOG_DEBUG, "Prepending $perl_bindir to PATH\n"); $ENV{'PATH'}="$perl_bindir" . "$pathsep" . "$ENV{'PATH'}"; } - tllog($::LOG_NORMAL, "\nNew PATH is now:\n"); + tllog($::LOG_DEBUG, "\nNew PATH is now:\n"); foreach my $dir (split $pathsep, $ENV{'PATH'}) { - tllog($::LOG_NORMAL, " $dir\n"); + tllog($::LOG_DEBUG, " $dir\n"); } - tllog($::LOG_NORMAL, "\n"); + tllog($::LOG_DEBUG, "\n"); if (win32) { $ENV{'PATHEXT'}=".texlua;" . "$ENV{'PATHEXT'}"; -- cgit v1.2.3