From 8f6a320b50f9c59e63b457c873fd18dba35a87cd Mon Sep 17 00:00:00 2001
From: Adam Spiers <stow@adamspiers.org>
Date: Mon, 1 Apr 2024 22:30:55 +0100
Subject: [PATCH] fold_tree: rename $source parameter to $pkg_subpath

$source is vague and confusing as per the manual.
---
 lib/Stow.pm.in | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/Stow.pm.in b/lib/Stow.pm.in
index 6689ce0..632207e 100755
--- a/lib/Stow.pm.in
+++ b/lib/Stow.pm.in
@@ -1299,7 +1299,7 @@ sub foldable {
     }
 }
 
-=head2 fold_tree($target, source)
+=head2 fold_tree($target, $pkg_subpath)
 
 Fold the given tree
 
@@ -1307,9 +1307,9 @@ Fold the given tree
 
 =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
 
@@ -1321,9 +1321,9 @@ Only called iff foldable() is true so we can remove some checks.
 
 sub fold_tree {
     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
         or error(qq{Cannot read directory "$target" ($!)\n});
@@ -1338,7 +1338,7 @@ sub fold_tree {
         $self->do_unlink(join_paths($target, $node));
     }
     $self->do_rmdir($target);
-    $self->do_link($source, $target);
+    $self->do_link($pkg_subpath, $target);
     return;
 }