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 |
}); |
}); |