Changeset b9a642a for perl


Ignore:
Timestamp:
Apr 3, 2011, 3:06:02 PM (10 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, release-1.8, release-1.9
Children:
dace02a
Parents:
41ade7f
git-author:
Nelson Elhage <nelhage@mit.edu> (03/12/11 10:41:07)
git-committer:
Nelson Elhage <nelhage@mit.edu> (04/03/11 15:06:02)
Message:
Only show nicks in response to irc-names.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

    r41ade7f rb9a642a  
    326326    my ($self, $evt) = @_;
    327327    return unless $self->names_tmp;
    328     $self->names_tmp([@{$self->names_tmp}, split(' ', $evt->{params}[3])]);
     328    $self->names_tmp([@{$self->names_tmp},
     329                      map {prefix_nick($_)} split(' ', $evt->{params}[3])]);
    329330}
    330331
Note: See TracChangeset for help on using the changeset viewer.