summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-11-05 14:51:46 +0000
committerKarl Berry <karl@freefriends.org>2008-11-05 14:51:46 +0000
commit2ba96951ab9bb02918885f9089c6ced2c466957e (patch)
tree616e3fb4fad792bdc9a4cbf794a68e45a0b4e7ba
parent1635864125a31bb8732d2c04d64a0ca6baa62006 (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.pm7
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm2
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);
}