Changeset 766 in ProjectBuilder for devel/pb/bin/pb
- Timestamp:
- Apr 27, 2009, 9:32:10 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r763 r766 586 586 } 587 587 if (defined $pt[1]->{$ENV{'PBPROJ'}}) { 588 # the 2 lists need to be grouped with a ',' separatedthem588 # the 2 lists needs to be grouped with a ',' separating them 589 589 if ($tmpl ne "") { 590 590 $tmpl .= ","; … … 613 613 # De-duplicate similar VM and VE 614 614 foreach my $d (split(/,/,$tmpl)) { 615 # skip ill-formatted vms (name-ver-arch) 616 next if ($d !~ /-/); 615 617 $virt{$d} = $d; 616 618 } … … 618 620 foreach my $d (keys %virt) { 619 621 my ($name,$ver,$arch) = split(/-/,$d); 622 pb_log(0,"Bad format for $d") if ((not defined $name) || (not defined $ver) || (not defined $arch)) ; 620 623 chomp($arch); 621 624 my ($ddir, $dver, $dfam);
Note:
See TracChangeset
for help on using the changeset viewer.