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

hack stow to ignore CVS/ dirs

Browse source
This commit is contained in:
adam 2005-11-24 00:20:45 +00:00 committed by Adam Spiers
parent d2e9969efb
commit 859401f1cd
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
stow.in
View file

@ -23,6 +23,11 @@
# $Date$ # $Date$
# $Author$ # $Author$
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
# Wed Nov 23 2005 Adam Spiers
# This version is hacked to ignore CVS/ directories.
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
require 5.005; require 5.005;
use POSIX; use POSIX;
@ -333,7 +338,9 @@ sub StowContents {
@contents = readdir(DIR); @contents = readdir(DIR);
closedir(DIR); closedir(DIR);
foreach $content (@contents) { 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)) { if (-d &JoinPaths($Stow, $dir, $content)) {
&StowDir(&JoinPaths($dir, $content), $stow); &StowDir(&JoinPaths($dir, $content), $stow);
} else { } else {