diff options
author | Karl Berry <karl@freefriends.org> | 2008-11-06 18:45:32 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-11-06 18:45:32 +0000 |
commit | fc99781ba9486ea53ff9202969cbbb36be3daea1 (patch) | |
tree | 9ca4a50271648e42789c8bb7247969fc5180e519 /Master/tlpkg/TeXLive/TLTREE.pm | |
parent | 09d8e227a48642a290d02b10db3a5cf555908591 (diff) |
more debugging
git-svn-id: svn://tug.org/texlive/trunk@11205 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index d20f5a70090..6109aa117ce 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -61,8 +61,9 @@ sub _initialize_lines { my @lines = @_; my %archs; # we first chdir to the svn root, we need it for file tests - my $oldpwd = `pwd`; - chomp($oldpwd); + debug("_il: about to run pwd\n"); + chomp (my $oldpwd = `pwd`); + debug("_il: got oldpwd=$oldpwd\n"); chdir($self->svnroot) || die "chdir($self->{svnroot}) failed: $!"; debug("_il: walking lines\n"); foreach my $l (@lines) { |