hack stow to ignore CVS/ dirs
This commit is contained in:
parent
d2e9969efb
commit
859401f1cd
1 changed files with 8 additions and 1 deletions
9
stow.in
9
stow.in
|
@ -23,6 +23,11 @@
|
|||
# $Date$
|
||||
# $Author$
|
||||
|
||||
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
# Wed Nov 23 2005 Adam Spiers
|
||||
# This version is hacked to ignore CVS/ directories.
|
||||
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
require 5.005;
|
||||
use POSIX;
|
||||
|
||||
|
@ -333,7 +338,9 @@ sub StowContents {
|
|||
@contents = readdir(DIR);
|
||||
closedir(DIR);
|
||||
foreach $content (@contents) {
|
||||
next if (($content eq '.') || ($content eq '..'));
|
||||
# Wed Nov 23 2005 Adam Spiers
|
||||
# hack to
|
||||
next if $content eq '.' or $content eq '..' or $content eq 'CVS';
|
||||
if (-d &JoinPaths($Stow, $dir, $content)) {
|
||||
&StowDir(&JoinPaths($dir, $content), $stow);
|
||||
} else {
|
||||
|
|
Loading…
Reference in a new issue