From 89b7de8c04d147a0185f9745993099eb852c0f13 Mon Sep 17 00:00:00 2001 From: Adam Spiers Date: Fri, 18 Nov 2011 10:34:23 +0000 Subject: [PATCH] Debug stow dir in stow/unstow contents routines --- stow.in | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/stow.in b/stow.in index 010e0ca..160e930 100755 --- a/stow.in +++ b/stow.in @@ -414,7 +414,9 @@ sub stow_contents { my ($path, $target, $source) = @_; 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"); 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); 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"); # In compat mode we traverse the target tree not the source tree, # 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); 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"); # We traverse the source tree not the target tree, so $path must exist. error("unstow_contents() called with non-directory path: $path")