summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-11-08 01:01:57 +0000
committerKarl Berry <karl@freefriends.org>2008-11-08 01:01:57 +0000
commite3d40ae736e437590c5a197d3bc05b7f9ab8c87c (patch)
tree201b962cbef2e974021e84262ad746bce144bf65 /Master/tlpkg/TeXLive/TLTREE.pm
parent806118c270bcbba9a03291c433c3e7abcb3da6e3 (diff)
yet more debugging.
git-svn-id: svn://tug.org/texlive/trunk@11219 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index 6109aa117ce..b238e4b96df 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -61,8 +61,11 @@ sub _initialize_lines {
my @lines = @_;
my %archs;
# we first chdir to the svn root, we need it for file tests
- debug("_il: about to run pwd\n");
- chomp (my $oldpwd = `pwd`);
+ debug("_il: about to run pwd, with env:\n");
+ for my $key (sort keys %ENV) {
+ debug("_il: $key=$ENV{$key}\n");
+ }
+ chomp (my $oldpwd = `pwd 2>&1`);
debug("_il: got oldpwd=$oldpwd\n");
chdir($self->svnroot) || die "chdir($self->{svnroot}) failed: $!";
debug("_il: walking lines\n");