Changeset 6401db3 for perl


Ignore:
Timestamp:
Dec 1, 2012, 5:16:21 PM (9 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl/Message/Zephyr.pm

    rbf70350 r6401db3  
    5151    my ($m) = @_;
    5252    return undef if (!$m->is_loginout);
     53    return undef if (!defined($m->fields));
    5354    return $m->fields->[2];
    5455}
     
    5758    my ($m) = @_;
    5859    return undef if (!$m->is_loginout);
     60    return undef if (!defined($m->fields));
    5961    return $m->fields->[0];
    6062}
Note: See TracChangeset for help on using the changeset viewer.