From f151b0e595e3a4413ea9bba5b2f1350b9ad742e2 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Fri, 8 Apr 2011 10:44:45 +0100
Subject: [PATCH] Small error in progress bar callback.

The array could be longer than 4 elements in a future version
of libguestfs, so change check from = to >=.
---
 slave.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/slave.ml b/slave.ml
index c12f9a3..f72a5aa 100644
--- a/slave.ml
+++ b/slave.ml
@@ -491,7 +491,7 @@ and open_disk_images images cb =
   ignore (
     g#set_event_callback (
       fun g event handle buf array ->
-        if event == G.EVENT_PROGRESS && Array.length array == 4 then (
+        if event == G.EVENT_PROGRESS && Array.length array >= 4 then (
           let proc_nr = array.(0)
           and serial = array.(1)
           and position = array.(2)
-- 
1.8.3.1