# DGIT-REPOS-DIR contains:
# git tree (or other object) lock (in acquisition order, outer first)
# DGIT-REPOS-DIR contains:
# git tree (or other object) lock (in acquisition order, outer first)
my $garbagerepo = "$dgitrepos/${package}_garbage";
# We arrange to always keep at least one old tree, for anti-rewind
# purposes (and, I guess, recovery from mistakes). This is either
my $garbagerepo = "$dgitrepos/${package}_garbage";
# We arrange to always keep at least one old tree, for anti-rewind
# purposes (and, I guess, recovery from mistakes). This is either
- debug "install $destrepo => $realdestrepo";
- rename $destrepo, $realdestrepo or die $!;
+ debug "install $destrepo => ".realdestrepo;
+ rename $destrepo, realdestrepo or die $!;