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