From 5ab926badb5ad24f8b4b994ad5f18f0d2b3a6953 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 10 Jan 2008 10:53:59 +0000 Subject: add logging facilities, see extra email git-svn-id: svn://tug.org/texlive/trunk@6176 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm') diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 2c9586ff775..bb2fd061aa9 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -65,7 +65,7 @@ sub from_fh { #while (my $line = $fh->getline) { while (my $line = <$fh>) { chomp($line); - &TeXLive::TLUtils::debug("reading line: >>>$line<<<"); + tllog($::LOG_DDDEBUG, "reading line: >>>$line<<<\n"); $line =~ /^\s*#/ && next; # skip comment lines if ($line =~ /^\s*$/) { if (!$started) { next; } @@ -568,7 +568,7 @@ sub make_container { die("Container method $type unknown!\n"); } unlink("$destdir/$containername"); - print "$compresscmd\n" if ($::opt_debug); + tllog($::LOG_DDDEBUG, "$compresscmd\n"); open ZIP, $compresscmd or die "Cannot open container program $compresscmd: $!\n"; map { if (! -f $_) { @@ -582,7 +582,7 @@ sub make_container { unlink("$tlpobjdir/$self->{'name'}.tlpobj"); rmdir("$tlpobjdir") if $removetlpobjdir; chdir($cwd); - print "Done $containername\n" if ($::opt_debug); + tllog($::LOG_DDDEBUG, "Done $containername\n"); } -- cgit v1.2.3