o <<END;
default: all
%:
- \$(MAKE) -C $cd ${dir_prefix}$@
+ \$(MAKE) -C $cd ${dir_prefix}\$@
END
}
my $dir_prefix = join '', map { "$_/" } @$path;
my $dir_suffix = join '', map { "/$_" } @$path;
my $dir_name = join '/', @$path ? @$path : '.';
- my $var_prefix = map { "${_}_" } @$path ? @$path : qw(TOP);
+ my $var_prefix = join '', map { "${_}_" } @$path ? @$path : qw(TOP);
write_makefile($dir_prefix, scalar @$path);