[1192] in BarnOwl Developers
[D-O-H] r1133 - trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module
daemon@ATHENA.MIT.EDU (asedeno@MIT.EDU)
Thu Oct 29 18:13:57 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
X-Original-To: nelhage@nelhage.com
To: dirty-owl-hackers@mit.edu
From: asedeno@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Tue, 7 Oct 2008 13:00:28 -0400 (EDT)
Author: asedeno
Date: 2008-10-07 13:00:27 -0400 (Tue, 07 Oct 2008)
New Revision: 1133
Modified:
trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm
Log:
Attempting to fix the reload-modules / jabber bug.
Modified: trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm
===================================================================
--- trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm 2008-09-29 23:24:37 UTC (rev 1132)
+++ trunk/owl/perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm 2008-10-07 17:00:27 UTC (rev 1133)
@@ -84,6 +84,12 @@
{ default => 15,
summary => 'After minutes idle, auto extended away.'
});
+ # Force these. Reload can screw them up.
+ # Taken from Net::Jabber::Protocol.
+ $Net::XMPP::Protocol::NEWOBJECT{'iq'} = "Net::Jabber::IQ";
+ $Net::XMPP::Protocol::NEWOBJECT{'message'} = "Net::Jabber::Message";
+ $Net::XMPP::Protocol::NEWOBJECT{'presence'} = "Net::Jabber::Presence";
+ $Net::XMPP::Protocol::NEWOBJECT{'jid'} = "Net::Jabber::JID";
} else {
# Our owl doesn't support queue_message. Unfortunately, this
# means it probably *also* doesn't support BarnOwl::error. So just
