Changeset 4787581 for perl/modules/IRC/lib

Timestamp:

Apr 3, 2011, 3:06:01 PM (14 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:

• perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm (modified) (3 diffs)

perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

@@ -21 +21 @@
 use base qw(Class::Accessor);
 use Exporter 'import';
-__PACKAGE__->mk_accessors(qw(conn alias motd names_tmp whois_tmp nick server autoconnect_channels));
+__PACKAGE__->mk_accessors(qw(conn alias motd names_tmp whois_tmp server autoconnect_channels));
 our @EXPORT_OK = qw(is_private);
 
@@ -44 +44 @@
     $self->alias($alias);
     $self->server($host);
-    $self->nick($nick);
     $self->motd("");
     $self->names_tmp(0);
@@ -86 +85 @@
 }
 
+sub nick {
+    my $self = shift;
+    return $self->conn->nick;
+}
+
 sub getSocket
 {