Changeset 1e2fab5 for perl

Timestamp:

May 25, 2013, 3:46:12 PM (10 years ago)

Author:

Geoffrey Thomas <geofft@ldpreload.com>

Branches:

release-1.9

Children:

7558e19

Parents:

fc2b7ae

git-author:

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

git-committer:

Geoffrey Thomas <geofft@ldpreload.com> (05/25/13 15:46:12)

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>
(cherry picked from commit 6401db33a7a1c3156833113bbe6e9eec7a571406)

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];
 }