diff options
-rw-r--r-- | docs/html/MakeProjectCreator.html | 15 | ||||
-rw-r--r-- | modules/ProjectCreator.pm | 12 |
2 files changed, 21 insertions, 6 deletions
diff --git a/docs/html/MakeProjectCreator.html b/docs/html/MakeProjectCreator.html index 6e59a72b..d62bafb7 100644 --- a/docs/html/MakeProjectCreator.html +++ b/docs/html/MakeProjectCreator.html @@ -8558,6 +8558,21 @@ class="Code">specific</em> clause. </td> </tr> + <tr> + <td rowspan="1" colspan="1"> + <p class="Tbl-Body"> + <em class= + "TableCode">command->type</em> + </p> + </td> + + <td rowspan="1" colspan="1"> + <p class="Tbl-Body"> + The original type of file for this command. + </p> + </td> + </tr> + </table> </p> diff --git a/modules/ProjectCreator.pm b/modules/ProjectCreator.pm index 6dd1d2fe..d1bdbb50 100644 --- a/modules/ProjectCreator.pm +++ b/modules/ProjectCreator.pm @@ -4674,14 +4674,15 @@ sub get_custom_value { } elsif ($cmd eq 'commands') { # only used with 'combined_custom' $value = []; - my %details = ('flags' => 'commandflags', + my %details = ('flags' => 'commandflags', 'outopt' => 'output_option', - 'gdir' => 'gendir'); + 'gdir' => 'gendir'); for my $tag (@{$self->{'custom_multi_cmd'}->{$based}}) { my $command = $self->get_custom_assign_or_override('command', $tag, $based, @params); push(@$value, $command); - my $det = $self->{'custom_multi_details'}->{$command} = {}; + my $det = $self->{'custom_multi_details'}->{$command} = {'type' => $tag, + 'outfile' => ''}; for my $k (keys %details) { $det->{$k} = $self->get_custom_assign_or_override($details{$k}, $tag, $based, @params); @@ -4704,10 +4705,9 @@ sub get_custom_value { } } } - elsif ($cmd eq 'flags' || $cmd eq 'outopt' || $cmd eq 'outfile' || - $cmd eq 'gdir') { + elsif (exists $self->{'custom_multi_details'}->{$based}->{$cmd}) { # only used with 'combined_custom' - $value = $self->{'custom_multi_details'}->{$based}->{$cmd} || ''; + $value = $self->{'custom_multi_details'}->{$based}->{$cmd}; } elsif (defined $customDefined{$cmd}) { $value = $self->get_assignment($cmd, |