#print STDERR "filter @_\n";
my $esclit = '&';
- for my $f ("${srcdir}/${dir_prefix}Subdir.mk.in",
- "${srcdir}/Perdir.mk.in") {
+
+ my $pi = sub {
+ my ($f, $enoentok) = @_;
process_input_mk($dir_prefix, $dir_suffix, $dir_name,
$var_prefix, $targets,
- $f, \$esclit, 0);
- }
+ "${srcdir}/$f", \$esclit, $enoentok);
+ };
+ $pi->("${dir_prefix}Subdir.mk.in", 0);
+ $pi->("Perdir.mk.in", 0);
}
sub process_subtree ($$);