diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2003-10-02 18:50:28 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2003-10-02 18:50:28 +0000 |
| commit | e6744a44b2327ffc3f7dfa5ede97f537e058662b (patch) | |
| tree | cac526922e2235accfb60fa45b4bedfd4fa1b105 | |
| parent | ed54d03a85316b07d84eafa6077142ce71454346 (diff) | |
| download | MPC-e6744a44b2327ffc3f7dfa5ede97f537e058662b.tar.gz | |
ChangeLogTag: Thu Oct 2 13:49:22 2003 Chad Elliott <elliott_c@ociweb.com>
| -rw-r--r-- | modules/Creator.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/modules/Creator.pm b/modules/Creator.pm index bfbd783b..c3526711 100644 --- a/modules/Creator.pm +++ b/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_]+/) { |