diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2011-05-17 15:34:12 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2011-05-17 15:34:12 +0000 |
commit | fdb938f69dc34644909886f5c3c6744f2759d5d6 (patch) | |
tree | 054c2c2f44e7b10e68b7936624c3393bc0305104 /modules/ProjectCreator.pm | |
parent | e44c62f0b926501671f2c32aa391a01117a8f4fc (diff) | |
download | MPC-fdb938f69dc34644909886f5c3c6744f2759d5d6.tar.gz |
ChangeLogTag: Tue May 17 15:32:48 UTC 2011 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/ProjectCreator.pm')
-rw-r--r-- | modules/ProjectCreator.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/modules/ProjectCreator.pm b/modules/ProjectCreator.pm index f6474907..2a1f1720 100644 --- a/modules/ProjectCreator.pm +++ b/modules/ProjectCreator.pm @@ -545,6 +545,15 @@ sub process_assignment_sub { ## fix up the value and change the name. ($name, $value) = $self->create_recursive_settings($name, $value, $assign); + ## If the assignment name is valid and requires parameter (<%...%>) + ## replacement, then do so. But, only do so on actual keywords. + ## User defined keywords must not have the parameters replaced in + ## order for them to get the correct replacement values later on. + if (defined $validNames{$name} && + ($validNames{$name} & 0x04) == 0 && index($value, '<%') >= 0) { + $value = $self->replace_parameters($value, $self->{'command_subs'}); + } + return $self->SUPER::process_assignment_sub($name, $value, $assign); } |