From e3d40ae736e437590c5a197d3bc05b7f9ab8c87c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 8 Nov 2008 01:01:57 +0000 Subject: yet more debugging. git-svn-id: svn://tug.org/texlive/trunk@11219 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLTREE.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLTREE.pm') 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"); -- cgit v1.2.3