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

foldable: add debug for different cases when not foldable

Browse source
This commit is contained in:
Adam Spiers 2024-04-01 18:49:01 +01:00
parent 1b597999e2
commit 09a34e7272
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lib/Stow.pm.in
View file

@ -1229,7 +1229,7 @@ sub foldable {
debug(3, 2, "Is $target_subdir foldable?"); debug(3, 2, "Is $target_subdir foldable?");
if ($self->{'no-folding'}) { if ($self->{'no-folding'}) {
debug(3, 3, "no because --no-folding enabled"); debug(3, 3, "Not foldable because --no-folding enabled");
return ''; return '';
} }
@ -1251,7 +1251,10 @@ sub foldable {
next NODE if not $self->is_a_node($path); next NODE if not $self->is_a_node($path);
# If it's not a link then we can't fold its parent # If it's not a link then we can't fold its parent
return '' if not $self->is_a_link($path); if (not $self->is_a_link($path)) {
debug(3, 3, "Not foldable because $path not a link");
return '';
}
# Where is the link pointing? # Where is the link pointing?
my $source = $self->read_a_link($path); my $source = $self->read_a_link($path);
@ -1262,13 +1265,14 @@ sub foldable {
$parent = parent($source) $parent = parent($source)
} }
elsif ($parent ne parent($source)) { elsif ($parent ne parent($source)) {
debug(3, 3, "Not foldable because $parent != parent of $source");
return ''; return '';
} }
} }
return '' if not $parent; return '' if not $parent;
# If we get here then all nodes inside $target_subdir are links, and those links # If we get here then all nodes inside $target_subdir are links,
# point to nodes inside the same directory. # and those links point to nodes inside the same directory.
# chop of leading '..' to get the path to the common parent directory # chop of leading '..' to get the path to the common parent directory
# relative to the parent of our $target_subdir # relative to the parent of our $target_subdir
@ -1280,6 +1284,7 @@ sub foldable {
return $parent; return $parent;
} }
else { else {
debug(3, 3, "$target_subdir is not foldable");
return ''; return '';
} }
} }