Apparently this is how errors are handled

yannk · Mar 11, 2010 · bb90dbe · bb90dbe
1 parent a79dd77
commit bb90dbe
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/AnyEvent/Superfeedr.pm b/lib/AnyEvent/Superfeedr.pm
@@ -47,8 +47,8 @@ sub new {
         if $filtered{on_connect};
 
     my $on_error = $filtered{on_error} || sub {
-        my $err = shift;
-        warn "Error: " . $err;
+        my ($cl, $acc, $err) = @_;
+        warn "Error: " . $err->string;
     };
 
     my $cl   = AnyEvent::XMPP::Client->new(