Changeset 4787581 for perl


Ignore:
Timestamp:
Apr 3, 2011, 3:06:01 PM (13 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, release-1.10, release-1.8, release-1.9
Children:
851a0e0
Parents:
38d50c2
git-author:
Nelson Elhage <nelhage@mit.edu> (02/26/11 19:16:44)
git-committer:
Nelson Elhage <nelhage@mit.edu> (04/03/11 15:06:01)
Message:
Don't store a second copy of our nick.
File:
1 edited

Legend:

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

    r38d50c2 r4787581  
    2121use base qw(Class::Accessor);
    2222use Exporter 'import';
    23 __PACKAGE__->mk_accessors(qw(conn alias motd names_tmp whois_tmp nick server autoconnect_channels));
     23__PACKAGE__->mk_accessors(qw(conn alias motd names_tmp whois_tmp server autoconnect_channels));
    2424our @EXPORT_OK = qw(is_private);
    2525
     
    4444    $self->alias($alias);
    4545    $self->server($host);
    46     $self->nick($nick);
    4746    $self->motd("");
    4847    $self->names_tmp(0);
     
    8685}
    8786
     87sub nick {
     88    my $self = shift;
     89    return $self->conn->nick;
     90}
     91
    8892sub getSocket
    8993{
Note: See TracChangeset for help on using the changeset viewer.