Changeset 3c9012b for perlwrap.pm

Timestamp:

Oct 29, 2006, 6:36:56 PM (18 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

e7ac2b6

Parents:

421c8ef7

Message:

Adding some support for distinguishing personals/private with messages generated from perl

File:

• perlwrap.pm (modified) (1 diff)

perlwrap.pm

@@ -102 +102 @@
 sub is_ping     { return 0; }
 sub is_mail     { return 0; }
-sub is_personal { return undef; }
+sub is_personal { return shift->is_private; }
 sub class       { return undef; }
 sub instance    { return undef; }