summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-12-05 18:45:04 +0000
committerKarl Berry <karl@freefriends.org>2014-12-05 18:45:04 +0000
commita5633dfe988f2ff899a79436997ac2440bc6a562 (patch)
treec003c5e20ee2c033b4aa2d058f528b161a1fb806 /Master/tlpkg/TeXLive/TLPOBJ.pm
parent7a799b19e715358bd9ef31854d30555fd55df73f (diff)
commented out debugging warn
git-svn-id: svn://tug.org/texlive/trunk@35751 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 7bd98607626..ebdc2e22873 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -134,7 +134,7 @@ sub from_fh {
$self->{'docfiledata'}{$f}{'details'} = $1;
$self->{'docfiledata'}{$f}{'language'} = $2;
} else {
- warn "Unparsable tagging in TLPDB line: =$line=";
+ tlwarn("$0: Unparsable tagging in TLPDB line: $line\n");
}
}
} elsif ($lastcmd eq "binfiles") {
@@ -800,7 +800,7 @@ sub update_from_catalogue {
$tcdocfilebasenames{$tcdocfilebasename} = 1;
#
foreach my $tlpdocfile (@tlpdocfiles) {
- warn "considering merge into tlpdocfile $tlpdocfile\n";
+ #warn "considering merge into tlpdocfile $tlpdocfile\n";
if ($tlpdocfile =~ m,/$tcdocfilebasename$,) {
# update the language/detail tags from Catalogue if present.
if (defined($entry->docs->{$tcdocfile}{'details'})) {