Changeset 6837096 for perl/modules


Ignore:
Timestamp:
Jan 22, 2007, 2:11:51 PM (17 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    r7f792c1 r6837096  
    628628        my $muc;
    629629        my $m = BarnOwl::getcurmsg();
    630         if ( $m->is_jabber && $m->{jtype} eq 'groupchat' ) {
     630        if ( $m && $m->is_jabber && $m->{jtype} eq 'groupchat' ) {
    631631            $muc = $m->{room};
    632632            $jid = $m->{to};
Note: See TracChangeset for help on using the changeset viewer.