Debug when skipping over stow directories
This commit is contained in:
parent
b5c49db524
commit
fdca9bd57a
1 changed files with 2 additions and 0 deletions
2
stow.in
2
stow.in
|
@ -553,6 +553,7 @@ sub unstow_contents_orig {
|
||||||
|
|
||||||
# don't try to remove anything under a stow directory
|
# don't try to remove anything under a stow directory
|
||||||
if ($target eq $Stow_Path or -e "$target/.stow" or -e "$target/.nonstow") {
|
if ($target eq $Stow_Path or -e "$target/.stow" or -e "$target/.nonstow") {
|
||||||
|
debug(2, "Not unstowing from protected directory $target (compat mode)");
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
my $cwd = getcwd();
|
my $cwd = getcwd();
|
||||||
|
@ -659,6 +660,7 @@ sub unstow_contents {
|
||||||
|
|
||||||
# don't try to remove anything under a stow directory
|
# don't try to remove anything under a stow directory
|
||||||
if ($target eq $Stow_Path or -e "$target/.stow") {
|
if ($target eq $Stow_Path or -e "$target/.stow") {
|
||||||
|
debug(2, "Not unstowing from protected directory $target");
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
my $cwd = getcwd();
|
my $cwd = getcwd();
|
||||||
|
|
Loading…
Reference in a new issue