diff options
author | Adam Spiers <stow@adamspiers.org> | 2011-11-22 15:50:12 +0000 |
---|---|---|
committer | Adam Spiers <stow@adamspiers.org> | 2011-11-26 15:10:29 +0000 |
commit | b20228721e1a0ced9de9423b9bc9a835421f136f (patch) | |
tree | 186eb0dd7866786ea055cf7bed7aa82a65c666b3 /lib/Stow.pm.in | |
parent | d8a4cda11b4fd9cbd528d0befa2c733e14e0fa55 (diff) | |
download | stow-b20228721e1a0ced9de9423b9bc9a835421f136f.tar.gz |
Rename protected_dir() to marked_stow_dir().
Diffstat (limited to 'lib/Stow.pm.in')
-rwxr-xr-x | lib/Stow.pm.in | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Stow.pm.in b/lib/Stow.pm.in index 4bfffe9..9b8367f 100755 --- a/lib/Stow.pm.in +++ b/lib/Stow.pm.in @@ -473,7 +473,7 @@ sub should_skip_target_which_is_stow_dir { return 1; } - if ($self->protected_dir($target)) { + if ($self->marked_stow_dir($target)) { debug(2, "Skipping protected directory $target"); return 1; } @@ -482,7 +482,7 @@ sub should_skip_target_which_is_stow_dir { return 0; } -sub protected_dir { +sub marked_stow_dir { my $self = shift; my ($target) = @_; for my $f (".stow", ".nonstow") { @@ -775,7 +775,7 @@ sub find_stowed_path { my $dir = ''; for my $part (split m{/+}, $path) { $dir = join_paths($dir, $part); - return $path if $self->protected_dir($dir); + return $path if $self->marked_stow_dir($dir); } # Compare with $self->{stow_path} |