fixed result iteration

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