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

link_owned_by_package: rename $source => $link_dest

Browse source 
The use of the word "source" to describe a link's destination is
confusing in the context of Stow for reasons explained in the manual.

So rename the $source variable to avoid this.
This commit is contained in:
Adam Spiers 2024-04-01 21:51:24 +01:00
parent 381fd71155
commit 3c904dade2
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/Stow.pm.in
View file

@ -922,7 +922,7 @@ sub unstow_existing_node {
} }
} }
=head2 link_owned_by_package($target_subpath, $source) =head2 link_owned_by_package($target_subpath, $link_dest)
Determine whether the given link points to a member of a stowed Determine whether the given link points to a member of a stowed
package. package.
@ -933,7 +933,7 @@ package.
Path to a symbolic link under current directory. Path to a symbolic link under current directory.
=item $source =item $link_dest
Where that link points to. Where that link points to.
@ -947,10 +947,10 @@ Returns the package iff link is owned by stow, otherwise ''.
sub link_owned_by_package { sub link_owned_by_package {
my $self = shift; my $self = shift;
my ($target_subpath, $source) = @_; my ($target_subpath, $link_dest) = @_;
my ($pkg_path_from_cwd, $stow_path, $package) = my ($pkg_path_from_cwd, $stow_path, $package) =
$self->find_stowed_path($target_subpath, $source); $self->find_stowed_path($target_subpath, $link_dest);
return $package; return $package;
} }