Debug stow dir in stow/unstow contents routines
This commit is contained in:
parent
c26e62de43
commit
89b7de8c04
1 changed files with 9 additions and 3 deletions
12
stow.in
12
stow.in
|
@ -414,7 +414,9 @@ sub stow_contents {
|
||||||
my ($path, $target, $source) = @_;
|
my ($path, $target, $source) = @_;
|
||||||
|
|
||||||
my $cwd = getcwd();
|
my $cwd = getcwd();
|
||||||
debug(2, "Stowing contents of $path (cwd is $cwd)");
|
my $msg = "Stowing contents of $path (cwd=$cwd, stow dir=$Stow_Path)";
|
||||||
|
$msg =~ s!$ENV{HOME}/!~/!g;
|
||||||
|
debug(2, $msg);
|
||||||
debug(3, "--- $target => $source");
|
debug(3, "--- $target => $source");
|
||||||
|
|
||||||
error("stow_contents() called with non-directory path: $path")
|
error("stow_contents() called with non-directory path: $path")
|
||||||
|
@ -586,7 +588,9 @@ sub unstow_contents_orig {
|
||||||
return if should_skip_stow_dir_target($target);
|
return if should_skip_stow_dir_target($target);
|
||||||
|
|
||||||
my $cwd = getcwd();
|
my $cwd = getcwd();
|
||||||
debug(2, "Unstowing from $target (compat mode, cwd is $cwd)");
|
my $msg = "Unstowing from $target (compat mode, cwd=$cwd, stow dir=$Stow_Path)";
|
||||||
|
$msg =~ s!$ENV{HOME}/!~/!g;
|
||||||
|
debug(2, $msg);
|
||||||
debug(3, "--- source path is $path");
|
debug(3, "--- source path is $path");
|
||||||
# In compat mode we traverse the target tree not the source tree,
|
# In compat mode we traverse the target tree not the source tree,
|
||||||
# so we're unstowing the contents of /target/foo, there's no
|
# so we're unstowing the contents of /target/foo, there's no
|
||||||
|
@ -690,7 +694,9 @@ sub unstow_contents {
|
||||||
return if should_skip_stow_dir_target($target);
|
return if should_skip_stow_dir_target($target);
|
||||||
|
|
||||||
my $cwd = getcwd();
|
my $cwd = getcwd();
|
||||||
debug(2, "Unstowing from $target (cwd is $cwd)");
|
my $msg = "Unstowing from $target (cwd=$cwd, stow dir=$Stow_Path)";
|
||||||
|
$msg =~ s!$ENV{HOME}/!~/!g;
|
||||||
|
debug(2, $msg);
|
||||||
debug(3, "--- source path is $path");
|
debug(3, "--- source path is $path");
|
||||||
# We traverse the source tree not the target tree, so $path must exist.
|
# We traverse the source tree not the target tree, so $path must exist.
|
||||||
error("unstow_contents() called with non-directory path: $path")
|
error("unstow_contents() called with non-directory path: $path")
|
||||||
|
|
Loading…
Reference in a new issue