00dani/stow
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

fold_tree: rename $source parameter to $pkg_subpath

Browse source 
$source is vague and confusing as per the manual.
This commit is contained in:
Adam Spiers 2024-04-01 22:30:55 +01:00
parent bae7890aa5
commit 8f6a320b50
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/Stow.pm.in
View file

@ -1299,7 +1299,7 @@ sub foldable {
} }
} }
=head2 fold_tree($target, source) =head2 fold_tree($target, $pkg_subpath)
Fold the given tree Fold the given tree
@ -1307,9 +1307,9 @@ Fold the given tree
=item $target =item $target
directory that we will replace with a link to $source Directory that we will replace with a link to $pkg_subpath.
=item $source =item $pkg_subpath
link to the folded tree source link to the folded tree source
@ -1321,9 +1321,9 @@ Only called iff foldable() is true so we can remove some checks.
sub fold_tree { sub fold_tree {
my $self = shift; my $self = shift;
my ($target, $source) = @_; my ($target, $pkg_subpath) = @_;
debug(3, 0, "--- Folding tree: $target => $source"); debug(3, 0, "--- Folding tree: $target => $pkg_subpath");
opendir my $DIR, $target opendir my $DIR, $target
or error(qq{Cannot read directory "$target" ($!)\n}); or error(qq{Cannot read directory "$target" ($!)\n});
@ -1338,7 +1338,7 @@ sub fold_tree {
$self->do_unlink(join_paths($target, $node)); $self->do_unlink(join_paths($target, $node));
} }
$self->do_rmdir($target); $self->do_rmdir($target);
$self->do_link($source, $target); $self->do_link($pkg_subpath, $target);
return; return;
} }