summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
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");
}