Changeset e4db5ae for perl/modules/IRC/lib/BarnOwl
- Timestamp:
- Jan 13, 2008, 10:08:52 PM (17 years ago)
- 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
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm
r3baf77f re4db5ae 16 16 17 17 use 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)); 19 19 our @EXPORT_OK = qw(&is_private); 20 20 … … 30 30 $self->channels([]); 31 31 $self->_motd(""); 32 $self-> connected(0);32 $self->_connected(0); 33 33 bless($self, $class); 34 34 … … 121 121 my ($self, $evt) = @_; 122 122 $self->_motd(join "\n", $self->_motd, cdr $evt->args); 123 if(!$self-> connected) {123 if(!$self->_connected) { 124 124 BarnOwl::admin_message("IRC", "Connected to " . 125 125 $self->server . " (" . $self->alias . ")"); 126 $self-> connected(1);126 $self->_connected(1); 127 127 128 128 }
Note: See TracChangeset
for help on using the changeset viewer.