Changeset 665 in ProjectBuilder for devel/pb/bin/pb

Timestamp:

Feb 5, 2009, 4:22:29 PM (15 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:

• devel/pb/bin/pb (modified) (2 diffs)

devel/pb/bin/pb

@@ -559 +559 @@
         }
         if (defined $pt[1]->{$ENV{'PBPROJ'}}) {
-            # the 2 lists needs to be grouped with a ',' separated them
+            # the 2 lists need to be grouped with a ',' separated them
             if ($tmpl ne "") {
                 $tmpl .= ",";
@@ -583 +583 @@
         # Do not do that for website
         if ((not defined $param) || ($param ne "Web")) {
+            my %virt;
+            # De-duplicate similar VM and VE 
             foreach my $d (split(/,/,$tmpl)) {
+                $virt{$d} = $d;
+            }
+
+            foreach my $d (keys %virt) {
                 my ($name,$ver,$arch) = split(/-/,$d);
                 chomp($arch);