Fix arguments of connect_error

Same problem
miyagawa · Oct 19, 2009 · cd7e79e · cd7e79e
1 parent 0882a15
commit cd7e79e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/AnyEvent/Superfeedr.pm b/lib/AnyEvent/Superfeedr.pm
@@ -71,7 +71,7 @@ sub new {
             )->(@_);
         },
         connect_error => sub {
-            my ($account, $reason) = @_;
+            my ($cl, $account, $reason) = @_;
             my $jid = $account->bare_jid;
             $on_error->("connection error for $jid: $reason");
         },