From: Richard W.M. Jones <rjones@redhat.com>
Date: Fri, 8 Apr 2011 09:44:45 +0000 (+0100)
Subject: Small error in progress bar callback.
X-Git-Tag: 0.1.6~1
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=f151b0e595e3a4413ea9bba5b2f1350b9ad742e2;p=guestfs-browser.git

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 >=.
---

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)