diff options
author | wilson_d <wilson_d@a3e5c962-4219-0410-a828-e124f845ac39> | 2003-09-22 16:18:21 +0000 |
---|---|---|
committer | wilson_d <wilson_d@a3e5c962-4219-0410-a828-e124f845ac39> | 2003-09-22 16:18:21 +0000 |
commit | 9c1aa24be6af9698279313339b77b7f6f2dafc3a (patch) | |
tree | ac4617b5cf1035b9568323512e03030c639d109c | |
parent | fc2947d3f75d584207de14d56649b5d8bd5c49ec (diff) | |
download | MPC-unlabeled-1.7.22.tar.gz |
ChangeLogTag: Mon Sep 16 13:33:50 2003 Dale Wilson <wilson_d@ociweb.com>unlabeled-1.7.22
-rw-r--r-- | modules/VC6WorkspaceCreator.pm | 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"; - } } |