Changeset 955a36e for perl/modules/IRC/lib/BarnOwl

Timestamp:

Sep 30, 2009, 9:32:36 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

2184001

Parents:

5b483a6

git-author:

Nelson Elhage <nelhage@mit.edu> (09/30/09 21:21:14)

git-committer:

Nelson Elhage <nelhage@mit.edu> (09/30/09 21:32:36)

Message:

Squelch some 'uninitialized' warnings in IRC completion.

IRC join, part, and quit messages have type IRC, but don't necessarily
have a sender or recipient, so check for those before storing them in
the completion list.

File:

• perl/modules/IRC/lib/BarnOwl/Module/IRC/Completion.pm (modified) (1 diff)

perl/modules/IRC/lib/BarnOwl/Module/IRC/Completion.pm

@@ -74 +74 @@
     my $m = shift;
     return unless $m->type eq 'IRC';
-    if ($m->recipient !~ m{^#}) {
+    if ($m->recipient && $m->recipient !~ m{^#}) {
         $users{$m->recipient} = 1;
     }
-    if ($m->sender !~ m{^#}) {
+    if ($m->sender && $m->sender !~ m{^#}) {
         $users{$m->sender} = 1;
     }