diff options
author | Adam Spiers <stow@adamspiers.org> | 2011-11-22 15:48:08 +0000 |
---|---|---|
committer | Adam Spiers <stow@adamspiers.org> | 2011-11-26 15:10:28 +0000 |
commit | d8a4cda11b4fd9cbd528d0befa2c733e14e0fa55 (patch) | |
tree | 4f41088acb07d659ad2c93b55e30d5fe02d50fff | |
parent | 7c0bb53bffd474baf23efcedc1cb16d72c0e4954 (diff) | |
download | stow-d8a4cda11b4fd9cbd528d0befa2c733e14e0fa55.tar.gz |
Rename should_skip_stow_dir_target() to should_skip_target_which_is_stow_dir()
-rwxr-xr-x | lib/Stow.pm.in | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lib/Stow.pm.in b/lib/Stow.pm.in index d25fecd..4bfffe9 100755 --- a/lib/Stow.pm.in +++ b/lib/Stow.pm.in @@ -319,7 +319,7 @@ sub stow_contents { my $self = shift; my ($path, $target, $source) = @_; - return if $self->should_skip_stow_dir_target($target); + return if $self->should_skip_target_which_is_stow_dir($target); my $cwd = getcwd(); my $msg = "Stowing contents of $path (cwd=$cwd, stow dir=$self->{stow_path})"; @@ -455,14 +455,15 @@ sub stow_node { } #===== METHOD =============================================================== -# Name : should_skip_stow_dir_target() -# Purpose : determine whether target is a stow directory and should be skipped +# Name : should_skip_target_which_is_stow_dir() +# Purpose : determine whether target is a stow directory which should +# : not be stowed to or unstowed from # Parameters: $target => relative path to symlink target from the current directory # Returns : true iff target is a stow directory # Throws : n/a # Comments : none #============================================================================ -sub should_skip_stow_dir_target { +sub should_skip_target_which_is_stow_dir { my $self = shift; my ($target) = @_; @@ -507,7 +508,7 @@ sub unstow_contents_orig { my $self = shift; my ($path, $target) = @_; - return if $self->should_skip_stow_dir_target($target); + return if $self->should_skip_target_which_is_stow_dir($target); my $cwd = getcwd(); my $msg = "Unstowing from $target (compat mode, cwd=$cwd, stow dir=$self->{stow_path})"; @@ -622,7 +623,7 @@ sub unstow_contents { my $self = shift; my ($path, $target) = @_; - return if $self->should_skip_stow_dir_target($target); + return if $self->should_skip_target_which_is_stow_dir($target); my $cwd = getcwd(); my $msg = "Unstowing from $target (cwd=$cwd, stow dir=$self->{stow_path})"; |