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.pm9
1 files changed, 7 insertions, 2 deletions
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