diff options
author | Karl Berry <karl@freefriends.org> | 2008-11-11 17:19:36 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-11-11 17:19:36 +0000 |
commit | a41a7db955e28248a752c8ca95d78cc8458a391f (patch) | |
tree | 296e42dacb6a29087439422a05eca3d5ade73107 /Master | |
parent | 627d74b280414eea3986af8b6a1ad28db014c9ae (diff) |
(writeout): one ddebugging line is enough.
git-svn-id: svn://tug.org/texlive/trunk@11257 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index d7ca2818eb0..2d76d8928b1 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -294,8 +294,7 @@ sub writeout { my $self = shift; my $fd = (@_ ? $_[0] : STDOUT); foreach (sort keys %{$self->{'tlps'}}) { - debug("writeout: tlpname = $_\n"); - ddebug("foo: ", $self->{'tlps'}{$_}->name, "\n"); + ddebug("writeout: tlpname=$_ ", $self->{'tlps'}{$_}->name, "\n"); $self->{'tlps'}{$_}->writeout($fd); print $fd "\n"; } |