Lines Matching refs:currentProject
55 my $currentProject;
67 $currentProject = {
72 $projectsByUUID{$uuid} = $currentProject;
81 defined($currentProject) or die;
86 $currentProject = undef;
94 defined($currentProject) or die;
99 if (exists $currentProject->{dependencies}->{$uuid1}) {
100 warn "Warning: UUID $uuid1 listed more than once as dependency of project ", $currentProject->{name}, "\n";
104 $uuid1 eq $uuid2 or warn "Warning: UUIDs in depedency section of project ", $currentProject->{name}, " don't match: $uuid1 $uuid2; using first UUID\n";
106 $currentProject->{dependencies}->{$uuid1} = 1;
