summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-10 10:53:59 +0000
committerNorbert Preining <preining@logic.at>2008-01-10 10:53:59 +0000
commit5ab926badb5ad24f8b4b994ad5f18f0d2b3a6953 (patch)
tree09714be5b47fa1659d69008e5fb3e574f5e106d7 /Master/tlpkg/TeXLive/TLPOBJ.pm
parentfdf785af06cac0cef5125a27f55f2b12bacb6d9a (diff)
add logging facilities, see extra email
git-svn-id: svn://tug.org/texlive/trunk@6176 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm6
1 files changed, 3 insertions, 3 deletions
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");
}