diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2003-05-01 18:02:37 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2003-05-01 18:02:37 +0000 |
commit | e3535492071a82e03aebda9d9f1a47171d48b469 (patch) | |
tree | accf452af3bbc34d04188306df8ae5afc0af32c9 /modules/VC6WorkspaceCreator.pm | |
parent | bca4dac13d702f675945998153bdf0f47f28c73e (diff) | |
download | MPC-e3535492071a82e03aebda9d9f1a47171d48b469.tar.gz |
ChangeLogTag: Thu May 1 12:55:13 2003 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/VC6WorkspaceCreator.pm')
-rw-r--r-- | modules/VC6WorkspaceCreator.pm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/modules/VC6WorkspaceCreator.pm b/modules/VC6WorkspaceCreator.pm index d3a376a4..921461aa 100644 --- a/modules/VC6WorkspaceCreator.pm +++ b/modules/VC6WorkspaceCreator.pm @@ -57,8 +57,8 @@ sub write_comps { my($dupfound) = 0; foreach my $project (@$projects) { - my($pi) = $$pjs{$project}; - my($name, $deps) = @$pi; + 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 @@ -71,12 +71,10 @@ sub write_comps { $names{$name} = 1; } - ## Convert all /'s to \ - $project = $self->slash_to_backslash($project); - print $fh "###############################################################################$crlf" . $crlf . - "Project: \"$name\"=$project - Package Owner=<4>$crlf" . + "Project: \"$name\"=" . $self->slash_to_backslash($project) . + " - Package Owner=<4>$crlf" . $crlf . "Package=<5>$crlf" . "{{{$crlf" . |