Lines Matching refs:pattern
158 my $pattern = '';
159 foreach $pattern (@$given_patterns) {
160 push(@reg_exps, &make_reg_exp($pattern));
172 foreach $pattern (@reg_exps) {
174 if (!($files_in_arch{$file} =~ /$pattern/)) {
200 my $pattern = '';
201 foreach $pattern (@$patterns_array) {
202 if ((-d $pattern) || (-f $pattern)) {
203 $files_in_arch{$pattern}++;
207 foreach $file_name (glob $pattern) {
296 foreach my $pattern (@$patterns_array) {
297 my @fit_pattern = grep /$pattern/, @zip_files;