);
sub patch_templates {
- my $root = $ENV{GRUNTMASTER_TEMPLATE_ROOT} or return;
+ my $root = $ENV{GRUNTMASTER_TEMPLATE_ROOT} or return %{$_[0]};
my ($templates, $name) = @_;
my %out = %$templates;
- for (<$root/$name*>) {
+ for (<$root/$name.*>) {
m/\.(.+)$/;
$out{$1} = read_file $_
}