Changeset 766

Timestamp:

04/27/09 21:32:10 (4 years ago)

Author:

bruno

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