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

Improve debug indent levels

Browse source
This commit is contained in:
Adam Spiers 2020-11-02 00:53:19 +00:00
parent c872baba2d
commit 86f4694d96
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/Stow.pm.in
View file

@ -938,7 +938,7 @@ sub find_stowed_path {
# Evaluate softlink relative to its target # Evaluate softlink relative to its target
my $path = join_paths(parent($target), $source); my $path = join_paths(parent($target), $source);
debug(4, 1, "is path $path owned by stow?"); debug(4, 2, "is path $path owned by stow?");
# Search for .stow files - this allows us to detect links # Search for .stow files - this allows us to detect links
# owned by stow directories other than the current one. # owned by stow directories other than the current one.
@ -952,7 +952,7 @@ sub find_stowed_path {
internal_error("find_stowed_path() called directly on stow dir") internal_error("find_stowed_path() called directly on stow dir")
if $i == $#path; if $i == $#path;
debug(4, 2, "yes - $dir was marked as a stow dir"); debug(4, 3, "yes - $dir was marked as a stow dir");
my $package = $path[$i + 1]; my $package = $path[$i + 1];
return ($path, $dir, $package); return ($path, $dir, $package);
} }
@ -972,19 +972,19 @@ sub find_stowed_path {
# Strip off common prefixes until one is empty # Strip off common prefixes until one is empty
while (@path && @stow_path) { while (@path && @stow_path) {
if ((shift @path) ne (shift @stow_path)) { if ((shift @path) ne (shift @stow_path)) {
debug(4, 2, "no - either $path not under $self->{stow_path} or vice-versa"); debug(4, 3, "no - either $path not under $self->{stow_path} or vice-versa");
return ('', '', ''); return ('', '', '');
} }
} }
if (@stow_path) { # @path must be empty if (@stow_path) { # @path must be empty
debug(4, 2, "no - $path is not under $self->{stow_path}"); debug(4, 3, "no - $path is not under $self->{stow_path}");
return ('', '', ''); return ('', '', '');
} }
my $package = shift @path; my $package = shift @path;
debug(4, 2, "yes - by $package in " . join_paths(@path)); debug(4, 3, "yes - by $package in " . join_paths(@path));
return ($path, $self->{stow_path}, $package); return ($path, $self->{stow_path}, $package);
} }