Changeset 216c734 for perlwrap.pm


Ignore:
Timestamp:
Oct 24, 2006, 12:40:02 PM (14 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
0138478
Parents:
4211f50b
Message:
Adding my getstyle patch, which I rely on from perl right now for a
number of my "modules".
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlwrap.pm

    r87c6ef1 r216c734  
    4545sub recipient   { return shift->{"recipient"}; }
    4646sub login       { return shift->{"login"}; }
     47sub is_private  { return shift->{"private"}; }
    4748
    4849sub is_login    { return shift->login eq "login"; }
     
    6364sub is_mail     { return 0; }
    6465sub is_personal { return undef; }
    65 sub is_private  { return undef; }
    6666sub class       { return undef; }
    6767sub instance    { return undef; }
     
    191191sub is_ping     { return (lc(shift->opcode) eq "ping"); }
    192192
    193 sub is_private {
    194     my ($m) = @_;
    195     return (lc($m->recipient) eq lc(owl::zephyr_getsender()));
    196 }
    197 
    198193sub is_personal {
    199194    my ($m) = @_;
Note: See TracChangeset for help on using the changeset viewer.