This produces better debug output.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
# $twa should be relative paths of the form .git/FOO/BAR
my ($twa) = @_;
$twa //= $wa;
# $twa should be relative paths of the form .git/FOO/BAR
my ($twa) = @_;
$twa //= $wa;
- chdir $twa or die "$twa $!";
+ changedir $twa or die "$twa $!";
my $r = eval { $sub->($twa); };
my $r = eval { $sub->($twa); };
- chdir '../../..' or die "$@; $!";
+ changedir '../../..' or die "$@; $!";
die $@ if length $@;
return $r;
}
die $@ if length $@;
return $r;
}