From a7f29c07a397eef96a2d736f83c5bff149aaf459 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 5 Nov 2008 14:56:39 +0000 Subject: temporary debugging msgs to try to find weird blank line in cron output git-svn-id: svn://tug.org/texlive/trunk@11194 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLTREE.pm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index bdb83ca59f0..d20f5a70090 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -32,7 +32,9 @@ sub init_from_svn { die "Undefined svn root" if !defined($self->{'svnroot'}); debug("initializing from svn tree $self->{'svnroot'}\n"); my @lines = `cd $self->{'svnroot'} && svn status -v`; + debug("got lines\n"); $self->_initialize_lines(@lines); + debug("initialized lines\n"); } sub init_from_statusfile { @@ -61,7 +63,8 @@ sub _initialize_lines { # we first chdir to the svn root, we need it for file tests my $oldpwd = `pwd`; chomp($oldpwd); - chdir($self->svnroot) || die("Cannot chdir to SVN root $self->{'svnroot'}!"); + chdir($self->svnroot) || die "chdir($self->{svnroot}) failed: $!"; + debug("_il: walking lines\n"); foreach my $l (@lines) { chomp($l); next if ($l =~ /^\?/); # ignore files not under version control @@ -87,12 +90,15 @@ sub _initialize_lines { } } # save list of architectures +debug("_il: architectures tree\n"); $self->architectures(keys(%archs)); # now do some magic # - create list of top level dirs with a list of full path names of # the respective dir attached +debug("_il: walking tree\n"); $self->walk_tree(\&find_alldirs); - chdir($oldpwd); + + chdir($oldpwd) || die "chdir($oldpwd) failed: $!"; } sub print { -- cgit v1.2.3