Stow.pm: rename $ldest to $link_dest for clarity

This commit is contained in:
Adam Spiers 2024-03-31 15:38:38 +01:00
parent 1be40c0532
commit f4f3836c5f
2 changed files with 25 additions and 24 deletions

View file

@ -239,10 +239,10 @@ sub restore_cwd {
}
sub adjust_dotfile {
my ($target) = @_;
my ($link_dest) = @_;
my @result = ();
for my $part (split m{/+}, $target) {
for my $part (split m{/+}, $link_dest) {
if (($part ne "dot-") && ($part ne "dot-.")) {
$part =~ s/^dot-/./;
}