[410] in BarnOwl Developers
[D-O-H] r544 - trunk/owl/perl/modules
daemon@ATHENA.MIT.EDU (asedeno@MIT.EDU)
Thu Oct 29 18:05:51 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: asedeno@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Mon, 22 Jan 2007 14:11:51 -0500 (EST)
Author: asedeno
Date: 2007-01-22 14:11:51 -0500 (Mon, 22 Jan 2007)
New Revision: 544
Modified:
trunk/owl/perl/modules/jabber.pl
Log:
Sometimes there is no current message, such as when jmuc join is run
from ~/.owl/startup. Check to see if we have something before we call
is_jabber.
Quick and dirty, could probably be replaced with a more correct check.
Modified: trunk/owl/perl/modules/jabber.pl
===================================================================
--- trunk/owl/perl/modules/jabber.pl 2007-01-22 05:20:17 UTC (rev 543)
+++ trunk/owl/perl/modules/jabber.pl 2007-01-22 19:11:51 UTC (rev 544)
@@ -627,7 +627,7 @@
my $jid;
my $muc;
my $m = BarnOwl::getcurmsg();
- if ( $m->is_jabber && $m->{jtype} eq 'groupchat' ) {
+ if ( $m && $m->is_jabber && $m->{jtype} eq 'groupchat' ) {
$muc = $m->{room};
$jid = $m->{to};
}
