diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2003-03-31 14:46:46 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2003-03-31 14:46:46 +0000 |
commit | a7b2198a3a3c1b1b9020c1619b3f7b4d39ad462e (patch) | |
tree | e892849f948857c18f27dc2c00e49352cf065dff | |
parent | 2dff132dc83e6b401c5604bce37fda1d58ec2bb7 (diff) | |
download | MPC-a7b2198a3a3c1b1b9020c1619b3f7b4d39ad462e.tar.gz |
ChangeLogTag: Mon Mar 31 08:44:16 2003 Chad Elliott <elliott_c@ociweb.com>
-rw-r--r-- | modules/ProjectCreator.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/modules/ProjectCreator.pm b/modules/ProjectCreator.pm index 68985e51..ebac1b4b 100644 --- a/modules/ProjectCreator.pm +++ b/modules/ProjectCreator.pm @@ -771,6 +771,16 @@ sub generate_default_pch_filenames { } +sub fix_pch_filenames { + my($self) = shift; + foreach my $type ('pch_header', 'pch_source') { + if ($self->get_assignment($type) eq '') { + $self->process_assignment($type, undef); + } + } +} + + sub is_special_tag { my($self) = shift; my($tag) = shift; @@ -1170,9 +1180,13 @@ sub generate_defaults { } } + ## Generate the default pch file names (if needed) my(@files) = $self->generate_default_file_list(); $self->generate_default_pch_filenames(\@files); + ## If the pch file names are empty strings then we need to fix that + $self->fix_pch_filenames(); + ## Generate default components, but @specialComponents ## are skipped in the initial default components generation $self->generate_default_components(\@files); |