Subject: | recursion through exception callback / Undefined subroutine &main:: |
Hello,
Found this while testing today. Error messages when calling callbacks:
recursion through exception callback (debug_recv
AnyEvent::XMPP::IM::Connection=HASH(0x2038140) <proceed
xmlns='urn:ietf:params:xml:ns:xmpp-tls'/>) => (error,
AnyEvent::XMPP::IM::Connection=HASH(0x2038140),
AnyEvent::XMPP::Error::Exception=HASH(0x2203848)): Undefined subroutine
&main:: called at /usr/local/share/perl/5.10.0/Object/Event.pm line 435.
The issue was introduced in 1.2. Fix is:
Change line 435 in Object/Event.pm from:
$cbs[0]->[4]->($self, @arg), shift @cbs while @cbs;
back to:
$cbs[0]->[2]->($self, @arg), shift @cbs while @cbs;