diff options
author | Karl Berry <karl@freefriends.org> | 2008-11-05 14:51:46 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-11-05 14:51:46 +0000 |
commit | 2ba96951ab9bb02918885f9089c6ced2c466957e (patch) | |
tree | 616e3fb4fad792bdc9a4cbf794a68e45a0b4e7ba | |
parent | 1635864125a31bb8732d2c04d64a0ca6baa62006 (diff) |
switch some one-shot ddebugs to debug
git-svn-id: svn://tug.org/texlive/trunk@11193 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 7 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 2 |
2 files changed, 5 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 10bbc7b9cf1..1ff426e7833 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -60,7 +60,8 @@ C<TeXLive::TLPDB> -- A database of TeX Live Packages use TeXLive::TLConfig qw($CategoriesRegexp $DefaultCategory $InfraLocation $DatabaseName $MetaCategoriesRegexp); -use TeXLive::TLUtils qw(dirname mkdirhier member win32 info debug ddebug tlwarn); +use TeXLive::TLUtils qw(dirname mkdirhier member win32 info debug ddebug + tlwarn); use TeXLive::TLPOBJ; my $_listdir; @@ -266,7 +267,7 @@ sub from_file { my $ret = 0; do { my $tlp = TeXLive::TLPOBJ->new; - ddebug("creating tlp from $path...\n"); + debug("creating tlp from $path...\n"); $ret = $tlp->from_fh($retfh,1); if ($ret) { $self->add_tlpobj($tlp); @@ -295,7 +296,7 @@ sub writeout { my $self = shift; my $fd = (@_ ? $_[0] : STDOUT); foreach (sort keys %{$self->{'tlps'}}) { - ddebug("tlpname = $_\n"); + debug("writeout: tlpname = $_\n"); ddebug("foo: ", $self->{'tlps'}{$_}->name, "\n"); $self->{'tlps'}{$_}->writeout($fd); print $fd "\n"; diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index b87625c702e..bdb83ca59f0 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -30,7 +30,7 @@ sub new { sub init_from_svn { my $self = shift; die "Undefined svn root" if !defined($self->{'svnroot'}); - ddebug("initializing from svn tree $self->{'svnroot'}\n"); + debug("initializing from svn tree $self->{'svnroot'}\n"); my @lines = `cd $self->{'svnroot'} && svn status -v`; $self->_initialize_lines(@lines); } |