From: Chris Nehren <c.nehren@shadowcat.co.uk>
Date: Thu, 16 Aug 2012 22:34:38 +0000 (+0000)
Subject: Add a little debugging to try to find out where this is hanging
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76e9b31b78e64bead0ba634ded7ddd2391b1d700;p=scpubgit%2FSystem-Introspector.git

Add a little debugging to try to find out where this is hanging
---

diff --git a/lib/System/Introspector/State.pm b/lib/System/Introspector/State.pm
index 876ab3d..7ae03d1 100644
--- a/lib/System/Introspector/State.pm
+++ b/lib/System/Introspector/State.pm
@@ -28,6 +28,7 @@ sub gather {
         $self->_log("Now waiting for results");
         for my $wait (@waiting) {
             my ($host, @futures) = @$wait;
+            $self->_log("Working with host $host");
             my @data = await_all @futures;
             $self->_log("Received all from group '$group' on '$host'");
             $self->_store($host, $group, +{ map %$_, @data });