Changeset 91882d6 for perl

Timestamp:

Mar 11, 2012, 11:44:39 PM (12 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

release-1.8

Children:

3965ec3d

Parents:

b148387

git-author:

Anders Kaseorg <andersk@mit.edu> (10/13/11 03:03:07)

git-committer:

David Benjamin <davidben@mit.edu> (03/11/12 23:44:39)

Message:

Stop pretending to support zwrite *

‘*’ is not a valid recipient, and pretending that it is just adds more
special cases to get wrong.

Signed-off-by: Anders Kaseorg <andersk@mit.edu>
Reviewed-by: David Benjamin <davidben@mit.edu>

File:

• perl/lib/BarnOwl/Message/Zephyr.pm (modified) (1 diff)

perl/lib/BarnOwl/Message/Zephyr.pm

@@ -171 +171 @@
         $class = $self->class;
         $instance = $self->instance;
-        if ($self->recipient eq '*' || $self->recipient eq '') {
-            $to = '';
-        } elsif ($self->recipient =~ /^@/) {
+        if ($self->recipient eq '' || $self->recipient =~ /^@/) {
             $to = $self->recipient;
         } else {