- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/IRC/lib/BarnOwl/Message/IRC.pm
r60b49a7 re04b7a1 66 66 sub action {shift->{action}} 67 67 sub reason {shift->{reason}} 68 sub old_nick {shift->{old_nick}};69 68 70 69 # display … … 81 80 } 82 81 83 sub login_extra { 82 sub login_extra { 84 83 my $self = shift; 85 84 if ($self->action eq "quit") { 86 85 return $self->reason; 87 } elsif ($self->action eq 'nick change') {88 return "was: " . $self->old_nick;89 86 } else { 90 87 return $self->channel;
Note: See TracChangeset
for help on using the changeset viewer.