diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2006-01-30 18:08:45 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2006-01-30 18:08:45 +0000 |
| commit | d505aec9ae80fb7c675cf749f7a74826f68c66ed (patch) | |
| tree | 525eaa6ac4776f7e4bae6bc0e2bbec2dbd2dd7b4 /modules/SLEWorkspaceCreator.pm | |
| parent | 0699bbbd41a76ed72364ce9ed6286a38d128abc6 (diff) | |
| download | MPC-d505aec9ae80fb7c675cf749f7a74826f68c66ed.tar.gz | |
ChangeLogTag: Mon Jan 30 12:07:35 2006 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/SLEWorkspaceCreator.pm')
| -rw-r--r-- | modules/SLEWorkspaceCreator.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/modules/SLEWorkspaceCreator.pm b/modules/SLEWorkspaceCreator.pm index 06a405b2..c6f734e8 100644 --- a/modules/SLEWorkspaceCreator.pm +++ b/modules/SLEWorkspaceCreator.pm @@ -50,10 +50,9 @@ sub write_comps { my($self) = shift; my($fh) = shift; my($crlf) = $self->crlf(); - my(@list) = $self->sort_dependencies($self->get_projects()); print $fh "\t<Projects>$crlf"; - foreach my $project (@list) { + foreach my $project ($self->sort_dependencies($self->get_projects(), 0)) { print $fh "\t\t<Project File=\"$project\"/>$crlf"; } print $fh "\t</Projects>$crlf"; |