Changeset e4db5ae for perl/modules/IRC/lib

Timestamp:

Jan 13, 2008, 10:08:52 PM (17 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:

eab7a4c

Parents:

3baf77f

Message:

Don't clober our parent's connected() method, either.

File:

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

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

@@ -16 +16 @@
 
 use base qw(Net::IRC::Connection Class::Accessor Exporter);
-__PACKAGE__->mk_accessors(qw(alias channels connected _motd));
+__PACKAGE__->mk_accessors(qw(alias channels _connected _motd));
 our @EXPORT_OK = qw(&is_private);
 
@@ -30 +30 @@
     $self->channels([]);
     $self->_motd("");
-    $self->connected(0);
+    $self->_connected(0);
     bless($self, $class);
 
@@ -121 +121 @@
     my ($self, $evt) = @_;
     $self->_motd(join "\n", $self->_motd, cdr $evt->args);
-    if(!$self->connected) {
+    if(!$self->_connected) {
         BarnOwl::admin_message("IRC", "Connected to " .
                                $self->server . " (" . $self->alias . ")");
-        $self->connected(1);
+        $self->_connected(1);
         
     }