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

unstow_valid_link: rename $existing_path

Browse source 
Unqualified references to "path" are horribly vague, so rename to
$existing_pkg_path_from_cwd for clarity.
This commit is contained in:
Adam Spiers 2024-04-01 21:54:15 +01:00
parent c45a0632a9
commit b3ed86d616
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/Stow.pm.in
View file

@ -869,15 +869,15 @@ sub unstow_link_node {
sub unstow_valid_link { sub unstow_valid_link {
my $self = shift; my $self = shift;
my ($pkg_path_from_cwd, $target_subpath, $existing_path) = @_; my ($pkg_path_from_cwd, $target_subpath, $existing_pkg_path_from_cwd) = @_;
# Does link points to the right place? # Does link points to the right place?
# Adjust for dotfile if necessary. # Adjust for dotfile if necessary.
if ($self->{dotfiles}) { if ($self->{dotfiles}) {
$existing_path = adjust_dotfile($existing_path); $existing_pkg_path_from_cwd = adjust_dotfile($existing_pkg_path_from_cwd);
} }
if ($existing_path eq $pkg_path_from_cwd) { if ($existing_pkg_path_from_cwd eq $pkg_path_from_cwd) {
$self->do_unlink($target_subpath); $self->do_unlink($target_subpath);
} }