ChangeLogTag: Mon Sep 16 13:33:50 2003 Dale Wilson <wilson_d@ociweb.com>unlabeled-1.7.22

1 files changed, 4 insertions, 18 deletions

diff --git a/modules/VC6WorkspaceCreator.pm b/modules/VC6WorkspaceCreator.pm
index 921461aa..92ac7e88 100644
--- a/modules/VC6WorkspaceCreator.pm
+++ b/modules/VC6WorkspaceCreator.pm
@@ -46,6 +46,10 @@ sub pre_workspace {
             $crlf;
 }
 
+sub allow_duplicates {
+  my($self) = shift;
+  return 0;
+}
 
 sub write_comps {
   my($self)     = shift;
@@ -53,23 +57,10 @@ sub write_comps {
   my($projects) = $self->get_projects();
   my($pjs)      = $self->get_project_info();
   my($crlf)     = $self->crlf();
-  my(%names)    = ();
-  my($dupfound) = 0;
 
   foreach my $project (@$projects) {
     my($name) = $$pjs{$project}->[0];
     my($deps) = $self->get_validated_ordering($project);
-    if (defined $names{$name}) {
-      ## Having duplicate project names is an error in a VC6 Workspace.
-      ## We will create the project, but we will warn the user that
-      ## the project has duplicate names and will not load properly.
-      print "WARNING: A project with the following name " .
-            "has already been added: '$name'\n";
-      ++$dupfound;
-    }
-    else {
-      $names{$name} = 1;
-    }
 
     print $fh "###############################################################################$crlf" .
               $crlf .
@@ -98,11 +89,6 @@ sub write_comps {
     print $fh "}}}$crlf$crlf";
   }
 
-  if ($dupfound > 0) {
-    print "WARNING: $dupfound duplicate project" .
-          ($dupfound == 1 ? '' : 's') .
-          " found.  This workspace will not load properly.\n";
-  }
 }