From 1d28631e7c9c41a17b04b6250395ff131a1f05ea Mon Sep 17 00:00:00 2001
From: Richard Jones <rjones@redhat.com>
Date: Fri, 11 Jun 2010 10:40:48 +0100
Subject: [PATCH] perl: Check all images are defined in first param of
 open_guest. (cherry picked from commit
 e67e216118df3a724482cb698a868ecbaacbf326)

---
 perl/lib/Sys/Guestfs/Lib.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm
index 85c4790..bd42ee2 100644
--- a/perl/lib/Sys/Guestfs/Lib.pm
+++ b/perl/lib/Sys/Guestfs/Lib.pm
@@ -145,6 +145,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]) {
-- 
1.8.3.1