From b3ed86d616ab89b21c6316fd2cb26638dcc38381 Mon Sep 17 00:00:00 2001 From: Adam Spiers Date: Mon, 1 Apr 2024 21:54:15 +0100 Subject: [PATCH] unstow_valid_link: rename $existing_path Unqualified references to "path" are horribly vague, so rename to $existing_pkg_path_from_cwd for clarity. --- lib/Stow.pm.in | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/Stow.pm.in b/lib/Stow.pm.in index 678362d..d1fe69d 100755 --- a/lib/Stow.pm.in +++ b/lib/Stow.pm.in @@ -869,15 +869,15 @@ sub unstow_link_node { sub unstow_valid_link { 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? # Adjust for dotfile if necessary. 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); }