diff options
| author | fukachan <fukachan> | 2006-10-14 02:32:57 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-10-14 02:32:57 +0000 |
| commit | 7eb0a90eb97d928bc5723baa3c107e2e78994b8c (patch) | |
| tree | a878f0722e1d57c8154e17a34cf4e95ddb94a3f7 /fml/lib/FML | |
| parent | 4fc8c2a7fd0b4e5fd05b4b4278aee08ab3d509d5 (diff) | |
| download | fml8-7eb0a90eb97d928bc5723baa3c107e2e78994b8c.tar.gz fml8-7eb0a90eb97d928bc5723baa3c107e2e78994b8c.tar.bz2 fml8-7eb0a90eb97d928bc5723baa3c107e2e78994b8c.zip | |
clean up.
Diffstat (limited to 'fml/lib/FML')
| -rw-r--r-- | fml/lib/FML/Fault/Address.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fml/lib/FML/Fault/Address.pm b/fml/lib/FML/Fault/Address.pm index 25d73633..df39678a 100644 --- a/fml/lib/FML/Fault/Address.pm +++ b/fml/lib/FML/Fault/Address.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Address.pm,v 1.1 2006/02/04 07:42:24 fukachan Exp $ +# $FML: Address.pm,v 1.2 2006/03/05 08:08:37 fukachan Exp $ # package FML::Fault::Address; @@ -22,7 +22,7 @@ FML::Fault::Address - fault handler =head1 METHODS -=head2 C<new()> +=head2 new() constructor. @@ -44,7 +44,7 @@ sub new =head2 try_subscribe() -check address and subscribe address if it is not a member +check address and subscribe address if it is not a member. =head2 subscribe($addr) @@ -85,8 +85,8 @@ sub try_subscribe sub subscribe { my ($self, $addr) = @_; - my ($curproc) = $self->{ _curproc }; - my $method = "subscribe"; + my $curproc = $self->{ _curproc }; + my $method = "subscribe"; my @options = ($addr); $curproc->log("subscribe $addr"); |