Changeset 7574eed for perl/lib/BarnOwl

Timestamp:

Dec 21, 2009, 5:54:21 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

6396c1e

Parents:

fa0114b

git-author:

Nelson Elhage <nelhage@mit.edu> (12/21/09 17:46:28)

git-committer:

Nelson Elhage <nelhage@mit.edu> (12/21/09 17:54:21)

Message:

_get_blist: Ignore undefined or empty buddy list entries.

File:

• perl/lib/BarnOwl/Hooks.pm (modified) (1 diff)

perl/lib/BarnOwl/Hooks.pm

@@ -184 +184 @@
 
 sub _get_blist {
-    my @results = $getBuddyList->run;
+    my @results = grep defined, $getBuddyList->run;
     s/^\s+|\s+$//sg for (@results);
-    return join("\n", @results);
+    return join("\n", grep {length($_)} @results);
 }