From 812c41526b6e9b87e50bcb0300171782eab30812 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 10 Nov 2008 19:41:11 +0000 Subject: more silly debugging of blank line git-svn-id: svn://tug.org/texlive/trunk@11247 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLTREE.pm | 9 +++++++-- 1 file changed, 7 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 fa26389a356..d23fd2d7e54 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -63,8 +63,14 @@ sub _initialize_lines { for my $key (sort keys %ENV) { debug("_il: $key=$ENV{$key}\n"); } - chomp (my $oldpwd = `pwd 2>&1`); + chomp (my $oldpwd = `pwd`); debug("_il: got oldpwd=$oldpwd\n"); + chomp (my $trial2 = `pwd`); + debug("_il: got trial2=$trial2\n"); + chomp (my $trial3 = `/bin/pwd`); + debug("_il: got trial3=$trial3\n"); + chomp (my $trial4 = `echo hello`); + debug("_il: got trial4=$trial4\n"); chdir($self->svnroot) || die "chdir($self->{svnroot}) failed: $!"; foreach my $l (@lines) { chomp($l); @@ -87,7 +93,6 @@ sub _initialize_lines { push @{$self->{'_filesofdir'}{$dn}}, $fn; } else { tlwarn("Ignoring svn status output line:\n $l\n"); - #die("Cannot read svn status output line:\n $l\n"); } } # save list of architectures -- cgit v1.2.3