ChangeLogTag: Mon May 12 13:23:27 2003 Chad Elliott <elliott_c@ociweb.com>

2 files changed, 5 insertions, 5 deletions

diff --git a/modules/Creator.pm b/modules/Creator.pm
index 5f03e567..7af3fbdd 100644
--- a/modules/Creator.pm
+++ b/modules/Creator.pm
@@ -400,7 +400,7 @@ sub transform_file_name {
   my($self) = shift;
   my($name) = shift;
 
-  $name =~ s/\s/_/g;
+  $name =~ s/[\s\-]/_/g;
   return $name;
 }
 
diff --git a/modules/ProjectCreator.pm b/modules/ProjectCreator.pm
index 8282b754..c8b0dc6b 100644
--- a/modules/ProjectCreator.pm
+++ b/modules/ProjectCreator.pm
@@ -316,7 +316,7 @@ sub parse_line {
           else {
             $name =~ s/^\(\s*//;
             $name =~ s/\s*\)$//;
-            $name =~ s/\s/_/g;
+            $name = $self->transform_file_name($name);
             $self->process_assignment('project_name', $name);
           }
         }
@@ -1485,7 +1485,7 @@ sub generate_defaults {
     my($current) = $self->get_current_input();
     if ($current eq '') {
       my($base) = $self->base_directory();
-      $base =~ s/\s/_/g;
+      $base = $self->transform_file_name($base);
       $self->process_assignment('project_name', $base);
     }
     else {
@@ -1493,8 +1493,8 @@ sub generate_defaults {
       ## into underscores.
       $current =~ s/\\/_/g;
 
-      ## Convert spaces to underscores
-      $current =~ s/\s/_/g;
+      ## Convert then name to a usable name
+      $current = $self->transform_file_name($current);
 
       ## Take off the extension
       $current =~ s/\.[^\.]+$//;