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

Timestamp:

Apr 27, 2009, 9:32:10 PM (15 years ago)

Author:

Bruno Cornec

Message:

Avoid to handle ill-formatted VM/VE names

File:

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

devel/pb/bin/pb

@@ -586 +586 @@
         }
         if (defined $pt[1]->{$ENV{'PBPROJ'}}) {
-            # the 2 lists need to be grouped with a ',' separated them
+            # the 2 lists needs to be grouped with a ',' separating them
             if ($tmpl ne "") {
                 $tmpl .= ",";
@@ -613 +613 @@
             # De-duplicate similar VM and VE 
             foreach my $d (split(/,/,$tmpl)) {
+                # skip ill-formatted vms (name-ver-arch)
+                next if ($d !~ /-/);
                 $virt{$d} = $d;
             }
@@ -618 +620 @@
             foreach my $d (keys %virt) {
                 my ($name,$ver,$arch) = split(/-/,$d);
+                pb_log(0,"Bad format for $d") if ((not defined $name) || (not defined $ver) || (not defined $arch)) ;
                 chomp($arch);
                 my ($ddir, $dver, $dfam);