Changeset 665 in ProjectBuilder for devel/pb/bin
- Timestamp:
- Feb 5, 2009, 4:22:29 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r661 r665 559 559 } 560 560 if (defined $pt[1]->{$ENV{'PBPROJ'}}) { 561 # the 2 lists need sto be grouped with a ',' separated them561 # the 2 lists need to be grouped with a ',' separated them 562 562 if ($tmpl ne "") { 563 563 $tmpl .= ","; … … 583 583 # Do not do that for website 584 584 if ((not defined $param) || ($param ne "Web")) { 585 my %virt; 586 # De-duplicate similar VM and VE 585 587 foreach my $d (split(/,/,$tmpl)) { 588 $virt{$d} = $d; 589 } 590 591 foreach my $d (keys %virt) { 586 592 my ($name,$ver,$arch) = split(/-/,$d); 587 593 chomp($arch);
Note:
See TracChangeset
for help on using the changeset viewer.