| 109 |
my $has_match; |
my $has_match; |
| 110 |
for_each_data_file (sub ($) { |
for_each_data_file (sub ($) { |
| 111 |
my $data_file_name = shift; |
my $data_file_name = shift; |
| 112 |
load_data_file ($data_file_name, my $exact_data = {}, my $pattern_data = {}, {}); |
load_data_file ($data_file_name, my $exact_data = {}, my $pattern_data = {}); |
| 113 |
$pattern_data = unescape_patterns ($pattern_data); |
$pattern_data = unescape_patterns ($pattern_data); |
| 114 |
$has_match |= print_matches ($data_file_name, $exact_data, $pattern_data); |
$has_match |= print_matches ($data_file_name, $exact_data, $pattern_data); |
| 115 |
}); |
}); |