bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Ignored files list building is now working.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-12-06 10:01:13 -05:00
parent 7cc0529fc2
commit e140cd8a2a
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
find-not-in-dir.plx
View file

@ -77,13 +77,13 @@ my(@directories) = @ARGV;
my($type, $dir, $output, $ignoreRegex, $includeRegex, $filterRewrite) = @_; my($type, $dir, $output, $ignoreRegex, $includeRegex, $filterRewrite) = @_;
my(@ignoredFiles) = FindAndSortOutput("FILES", $excludeDirectory, undef, my(@ignoredFiles) = FindAndSortOutput("FILES", $excludeDirectory, undef,
undef, undef, '.*/[^/]+$'); '(?:/\.svn/|~$)');
my %ignoredFiles; my %ignoredFiles;
foreach my $file (@ignoredFiles) { $ignoredFiles{$file} = 1; } foreach my $file (@ignoredFiles) {
$file =~ s%.*/([^/]+)$%$1%;
foreach my $file (sort keys %ignoredFiles) { print "IGNORING: $file\n"; } $ignoredFiles{$file} = 1;
}
my @files; my @files;
foreach my $dir (@directories) { foreach my $dir (@directories) {