diff options
| author | fukachan <fukachan> | 2001-03-10 16:22:58 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-03-10 16:22:58 +0000 |
| commit | d25fd26dce2d2326502e6ba22a0ce640a472182e (patch) | |
| tree | b92742dc4acca3f3100ee2931df4758a66f530cb /fml/lib | |
| parent | 482256494d68dbecd8a5bd041947c9159976dc0b (diff) | |
| download | fml8-d25fd26dce2d2326502e6ba22a0ce640a472182e.tar.gz fml8-d25fd26dce2d2326502e6ba22a0ce640a472182e.tar.bz2 fml8-d25fd26dce2d2326502e6ba22a0ce640a472182e.zip | |
s/_connect4/connect4/g
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/MailingList/Net/INET4.pm | 10 | ||||
| -rw-r--r-- | fml/lib/MailingList/SMTP.pm | 2 |
2 files changed, 6 insertions, 6 deletions
diff --git a/fml/lib/MailingList/Net/INET4.pm b/fml/lib/MailingList/Net/INET4.pm index 759b34e7..411984e2 100644 --- a/fml/lib/MailingList/Net/INET4.pm +++ b/fml/lib/MailingList/Net/INET4.pm @@ -17,9 +17,9 @@ use MailingList::Utils; require Exporter; @ISA = qw(Exporter); -@EXPORT = qw(_connect4); +@EXPORT = qw(connect4); -sub _connect4 +sub connect4 { my ($self, $args) = @_; my $mta = $args->{ _mta }; @@ -60,7 +60,7 @@ MailingList::Net::INET4 - establish tcp connection over IPv4 use MailingList::Net::INET4; $mta = '127.0.0.1:25'; - $self->_connect4( { _mta => $mta }); + $self->connect4( { _mta => $mta }); =head1 DESCRIPTION @@ -69,7 +69,7 @@ IPv4. This is a typical socket program. =head1 METHODS -=item C<_connect4()> +=item C<connect4()> try L<connect(2)>. If it succeeds, returned @@ -79,7 +79,7 @@ $self->{ _socket } is undef. Avaialble arguments follows: - _connect4( { _mta => $mta }); + connect4( { _mta => $mta }); $mta is a hostname or [raw_ipv4_addr]:port form, for example, 127.0.0.1:25. diff --git a/fml/lib/MailingList/SMTP.pm b/fml/lib/MailingList/SMTP.pm index 175fb25e..be1f9da2 100644 --- a/fml/lib/MailingList/SMTP.pm +++ b/fml/lib/MailingList/SMTP.pm @@ -264,7 +264,7 @@ sub _connect return undef; } else { - $self->_connect4($args); + $self->connect4($args); } } |