Notify the user of timeouts through the error callback

iinteractive · Feb 17, 2013 · e3aa176 · e3aa176
1 parent e7f31c8
commit e3aa176
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -1,6 +1,8 @@
 Revision history for Net::Bullfinch
 
 {{$NEXT}}
+  * Notify ->iterate_async users of request timeouts through the error
+    callback (Florian Ragwitz).x
 
 0.14 Feb 14 2013
   * Add ->iterate_asnc as an AnyEvent compatible way of making requests

diff --git a/lib/Net/Bullfinch.pm b/lib/Net/Bullfinch.pm
@@ -275,7 +275,7 @@ sub iterate_async {
 
             $self->_client->get($rname.'/t='.$self->timeout, sub {
                 my ($resp) = @_;
-                return $result_cb->() unless defined $resp;
+                return $error_cb->('timeout') unless defined $resp;
 
                 my $decoded = decode_json $resp;
                 return $result_cb->() if exists $decoded->{EOF};