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

always ignore CVS and cfgsave

Browse source
This commit is contained in:
adam 2006-01-03 11:39:31 +00:00 committed by Adam Spiers
parent 9dbb601da0
commit b623fb6de6
1 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
Stow.pm
View file

@ -541,16 +541,20 @@ sub parent {
sub get_ignore_re_from_file {
my ($file) = @_;
# Bootstrap issue - first time we stow, we will be stowing
# .cvsignore so it won't exist in ~ yet. At that time, use
# a sensible default instead.
open(REGEXPS, $file) or return qr!\.cfgsave\.|^(CVS)$!;
my @regexps;
while (<REGEXPS>) {
# .cvsignore so it might not exist in ~ yet, or if it does, it could
# be an old version missing the entries we need. So we make sure
# they are there.
my %globs;
if (open(GLOBS, $file)) {
while (<GLOBS>) {
chomp;
push @regexps, glob_to_re($_);
$globs{$_}++;
}
close(REGEXPS);
my $re = join '|', @regexps;
close(GLOBS);
}
$globs{$_}++ foreach '*.cfgsave.*', 'CVS';
my $re = join '|', map glob_to_re($_), keys %globs;
warn "#% ignore regexp is $re\n" if $opts{verbose};
return qr/$re/;
}