perl: Check all images are defined in first param of open_guest.
authorRichard Jones <rjones@redhat.com>
Fri, 11 Jun 2010 09:40:48 +0000 (10:40 +0100)
committerRichard Jones <rjones@redhat.com>
Fri, 11 Jun 2010 09:40:48 +0000 (10:40 +0100)
perl/lib/Sys/Guestfs/Lib.pm

index 128f7c9..bdc788e 100644 (file)
@@ -152,6 +152,13 @@ sub open_guest
         croak __"open_guest: first parameter must be a string or an arrayref"
     }
 
+    # Check each element of @images is defined.
+    # (See https://bugzilla.redhat.com/show_bug.cgi?id=601092#c3).
+    foreach (@images) {
+        croak __"open_guest: first argument contains undefined element"
+            unless defined $_;
+    }
+
     my ($conn, $dom);
 
     if (-e $images[0]) {