diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 10 |
1 files 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 { |