Changeset e4db5ae for perl


Ignore:
Timestamp:
Jan 13, 2008, 10:08:52 PM (13 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, 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:
1 edited

Legend:

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

    r3baf77f re4db5ae  
    1616
    1717use base qw(Net::IRC::Connection Class::Accessor Exporter);
    18 __PACKAGE__->mk_accessors(qw(alias channels connected _motd));
     18__PACKAGE__->mk_accessors(qw(alias channels _connected _motd));
    1919our @EXPORT_OK = qw(&is_private);
    2020
     
    3030    $self->channels([]);
    3131    $self->_motd("");
    32     $self->connected(0);
     32    $self->_connected(0);
    3333    bless($self, $class);
    3434
     
    121121    my ($self, $evt) = @_;
    122122    $self->_motd(join "\n", $self->_motd, cdr $evt->args);
    123     if(!$self->connected) {
     123    if(!$self->_connected) {
    124124        BarnOwl::admin_message("IRC", "Connected to " .
    125125                               $self->server . " (" . $self->alias . ")");
    126         $self->connected(1);
     126        $self->_connected(1);
    127127       
    128128    }
Note: See TracChangeset for help on using the changeset viewer.