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 $self = shift;
my ($path, $target, $source) = @_; 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 $cwd = getcwd();
my $msg = "Stowing contents of $path (cwd=$cwd, stow dir=$self->{stow_path})"; my $msg = "Stowing contents of $path (cwd=$cwd, stow dir=$self->{stow_path})";
@ -455,14 +455,15 @@ sub stow_node {
} }
#===== METHOD =============================================================== #===== METHOD ===============================================================
# Name : should_skip_stow_dir_target() # Name : should_skip_target_which_is_stow_dir()
# Purpose : determine whether target is a stow directory and should be skipped # 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 # Parameters: $target => relative path to symlink target from the current directory
# Returns : true iff target is a stow directory # Returns : true iff target is a stow directory
# Throws : n/a # Throws : n/a
# Comments : none # Comments : none
#============================================================================ #============================================================================
sub should_skip_stow_dir_target { sub should_skip_target_which_is_stow_dir {
my $self = shift; my $self = shift;
my ($target) = @_; my ($target) = @_;
@ -507,7 +508,7 @@ sub unstow_contents_orig {
my $self = shift; my $self = shift;
my ($path, $target) = @_; 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 $cwd = getcwd();
my $msg = "Unstowing from $target (compat mode, cwd=$cwd, stow dir=$self->{stow_path})"; 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 $self = shift;
my ($path, $target) = @_; 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 $cwd = getcwd();
my $msg = "Unstowing from $target (cwd=$cwd, stow dir=$self->{stow_path})"; my $msg = "Unstowing from $target (cwd=$cwd, stow dir=$self->{stow_path})";