Changeset 665

Timestamp:

02/05/09 16:22:29 (4 years ago)

Author:

bruno

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);