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 (file)
--- 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 });