Changeset 665 for devel/pb/bin/pb


Ignore:
Timestamp:
Feb 5, 2009, 4:22:29 PM (11 years ago)
Author:
Bruno Cornec
Message:
  • Fix a bug where duplicates in VE and VM lists where handled twice leading to errors with patches applied also twice in the same distro. Also more efficient.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb

    r661 r665  
    559559        }
    560560        if (defined $pt[1]->{$ENV{'PBPROJ'}}) {
    561             # the 2 lists needs to be grouped with a ',' separated them
     561            # the 2 lists need to be grouped with a ',' separated them
    562562            if ($tmpl ne "") {
    563563                $tmpl .= ",";
     
    583583        # Do not do that for website
    584584        if ((not defined $param) || ($param ne "Web")) {
     585            my %virt;
     586            # De-duplicate similar VM and VE
    585587            foreach my $d (split(/,/,$tmpl)) {
     588                $virt{$d} = $d;
     589            }
     590
     591            foreach my $d (keys %virt) {
    586592                my ($name,$ver,$arch) = split(/-/,$d);
    587593                chomp($arch);
Note: See TracChangeset for help on using the changeset viewer.