summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm10
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 {