diff options
| author | elliott_c <elliott_c@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2003-10-02 18:50:28 +0000 |
|---|---|---|
| committer | elliott_c <elliott_c@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2003-10-02 18:50:28 +0000 |
| commit | d21eb334c24d382b257f507e61be6a783bf596a4 (patch) | |
| tree | de03d561cdcfc5bdc79ff8124fa4623c61dc2ecf /bin | |
| parent | 71fdbc548eddf6f69b317b18c166e5c4368c58db (diff) | |
| download | ATCD-d21eb334c24d382b257f507e61be6a783bf596a4.tar.gz | |
ChangeLogTag: Thu Oct 2 13:49:22 2003 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/MakeProjectCreator/modules/Creator.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/bin/MakeProjectCreator/modules/Creator.pm b/bin/MakeProjectCreator/modules/Creator.pm index bfbd783b2e2..c3526711b82 100644 --- a/bin/MakeProjectCreator/modules/Creator.pm +++ b/bin/MakeProjectCreator/modules/Creator.pm @@ -566,8 +566,10 @@ sub fill_type_name { $name =~ s/\*$/$post/; $name =~ s/\*/$mid/g; - ## Remove any trailing underscore + ## Remove any trailing underscore or any underscore that is followed + ## by a space. This value could be a space separated list. $name =~ s/_$//; + $name =~ s/_\s/ /g; ## If any one word is capitalized then capitalize each word if ($name =~ /[A-Z][0-9a-z_]+/) { |