diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2003-06-19 12:50:59 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2003-06-19 12:50:59 +0000 |
commit | 3613febfe91d09cbe5abec910ac20284e2978c3e (patch) | |
tree | 9e8c9dafd9aa05f942ae24f994ce2ff72a99b407 | |
parent | aaa34702f1178d521fb2dfc427f6bac7257e74b2 (diff) | |
download | MPC-3613febfe91d09cbe5abec910ac20284e2978c3e.tar.gz |
ChangeLogTag: Thu Jun 19 07:50:04 2003 Chad Elliott <elliott_c@ociweb.com>
-rw-r--r-- | modules/ProjectCreator.pm | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/modules/ProjectCreator.pm b/modules/ProjectCreator.pm index 90205382..146fb1d9 100644 --- a/modules/ProjectCreator.pm +++ b/modules/ProjectCreator.pm @@ -423,8 +423,7 @@ sub parse_line { elsif ($comp eq 'specific') { my(@types) = split(/\s*,\s*/, $name); ($status, $errorString) = $self->parse_scope( - $ih, $values[1], \@types, \%validNames, - $self->{'type_specific_assign'}->{$self->{'pctype'}}); + $ih, $values[1], \@types, \%validNames); } elsif ($comp eq 'define_custom') { ($status, $errorString) = $self->parse_define_custom($ih, $name); @@ -804,13 +803,11 @@ sub handle_scoped_end { my($flags) = shift; foreach my $type (@$types) { - if (defined $self->{'type_specific_assign'}->{$type}) { - foreach my $key (keys %$flags) { - $self->{'type_specific_assign'}->{$type}->{$key} = $$flags{$key}; - } + if (!defined $self->{'type_specific_assign'}->{$type}) { + $self->{'type_specific_assign'}->{$type} = {}; } - else { - $self->{'type_specific_assign'}->{$type} = $flags; + foreach my $key (keys %$flags) { + $self->{'type_specific_assign'}->{$type}->{$key} = $$flags{$key}; } } } |