[875] in BarnOwl Developers
[D-O-H] r863 - trunk/owl/perl/modules/IRC/lib/BarnOwl/Module/IRC
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:10:39 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: nelhage@MIT.EDU
Reply-To: dirty-owl-hackers@MIT.EDU
Date: Sun, 13 Jan 2008 22:08:53 -0500 (EST)
Author: nelhage
Date: 2008-01-13 22:08:52 -0500 (Sun, 13 Jan 2008)
New Revision: 863
Modified:
trunk/owl/perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm
Log:
Don't clober our parent's connected() method, either.
Modified: trunk/owl/perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm
===================================================================
--- trunk/owl/perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm 2008-01-13 23:10:44 UTC (rev 862)
+++ trunk/owl/perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm 2008-01-14 03:08:52 UTC (rev 863)
@@ -15,7 +15,7 @@
=cut
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);
use BarnOwl;
@@ -29,7 +29,7 @@
$self->alias($alias);
$self->channels([]);
$self->_motd("");
- $self->connected(0);
+ $self->_connected(0);
bless($self, $class);
$self->add_default_handler(sub { goto &on_event; });
@@ -120,10 +120,10 @@
sub on_endofmotd {
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);
}
BarnOwl::admin_message("IRC",
