9 return !grep(/$testfile/, @ignorestuff);
14 if ($line =~ /^ *nowildcard: *(.*)$/) {
16 @ignorelist = split (/ +/, $ignore);
17 foreach $i (@ignorelist) {
18 print "# ignoring wildcards for \`$i\'\n";
19 push @ignorestuff, $i; # concat ? uh?
23 } elsif ($line =~ /(.*)\$\(wildcard(.*)\)(.*)/) {
26 @expanded = glob ($wild);
28 @expanded = grep {ignore_query($_);} @expanded;
30 print $1 . join (' ', @expanded) . $3 . "\n";