Changeset 6837096 for perl/modules

Timestamp:

Jan 22, 2007, 2:11:51 PM (18 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

2d423e9

Parents:

7f792c1

Message:

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.

File:

• perl/modules/jabber.pl (modified) (1 diff)

perl/modules/jabber.pl

@@ -628 +628 @@
         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};