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

Rename should_skip_stow_dir_target() to should_skip_target_which_is_stow_dir()

Browse source
This commit is contained in:
Adam Spiers 2011-11-22 15:48:08 +00:00
parent 7c0bb53bff
commit d8a4cda11b
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lib/Stow.pm.in
View file

@ -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})";