ChangeLogTag: Wed Apr 30 09:38:19 2003 Chad Elliott <elliott_c@ociweb.com>

1 files changed, 20 insertions, 22 deletions

diff --git a/modules/WorkspaceCreator.pm b/modules/WorkspaceCreator.pm
index 331a5a4d..170707b5 100644
--- a/modules/WorkspaceCreator.pm
+++ b/modules/WorkspaceCreator.pm
@@ -241,34 +241,32 @@ sub parse_exclude {
   my($errorString) = 'ERROR: Unable to process exclude';
 
   if ($typestr eq 'default') {
-    $errorString = 'ERROR: You must specify a project type ' .
-                   'for exclusions';
+    $typestr = $self->{'wctype'};
   }
-  else {
-    my(@types)   = split(/\s*,\s*/, $typestr);
-    my(@exclude) = ();
 
-    while(<$fh>) {
-      my($line) = $self->strip_line($_);
+  my(@types)   = split(/\s*,\s*/, $typestr);
+  my(@exclude) = ();
 
-      if ($line eq '') {
-      }
-      elsif ($line =~ /^}/) {
-        $status = 1;
-        $errorString = '';
-        last;
-      }
-      else {
-        push(@exclude, $line);
-      }
+  while(<$fh>) {
+    my($line) = $self->strip_line($_);
+
+    if ($line eq '') {
     }
+    elsif ($line =~ /^}/) {
+      $status = 1;
+      $errorString = '';
+      last;
+    }
+    else {
+      push(@exclude, $line);
+    }
+  }
 
-    foreach my $type (@types) {
-      if (!defined $self->{'exclude'}->{$type}) {
-        $self->{'exclude'}->{$type} = [];
-      }
-      push(@{$self->{'exclude'}->{$type}}, @exclude);
+  foreach my $type (@types) {
+    if (!defined $self->{'exclude'}->{$type}) {
+      $self->{'exclude'}->{$type} = [];
     }
+    push(@{$self->{'exclude'}->{$type}}, @exclude);
   }
 
   return $status, $errorString;