Changeset 6401db3 for perl

Timestamp:

Dec 1, 2012, 5:16:21 PM (10 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

master

Children:

4a6f8b0, 048b1ff, 472dcbe

Parents:

ccc182c

git-author:

David Benjamin <davidben@mit.edu> (11/14/12 15:22:41)

git-committer:

David Benjamin <davidben@mit.edu> (12/01/12 17:16:21)

Message:

Fix display of pseudologins

After b9517cf7ce2959a6e86a52d25a98b1d03df56d58, they lost fields and
auth keys. They're faked, so they don't really have fields or auth, but
put them in anyway to appease existing styles.

Reported-By: Kevin Chen <kchen@mit.edu>

File:

• perl/lib/BarnOwl/Message/Zephyr.pm (modified) (2 diffs)

perl/lib/BarnOwl/Message/Zephyr.pm

@@ -51 +51 @@
     my ($m) = @_;
     return undef if (!$m->is_loginout);
+    return undef if (!defined($m->fields));
     return $m->fields->[2];
 }
@@ -57 +58 @@
     my ($m) = @_;
     return undef if (!$m->is_loginout);
+    return undef if (!defined($m->fields));
     return $m->fields->[0];
 }