diff options
| author | fukachan <fukachan> | 2001-03-10 16:20:48 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-03-10 16:20:48 +0000 |
| commit | 482256494d68dbecd8a5bd041947c9159976dc0b (patch) | |
| tree | 13afd7e60b0410b4a7cc2fe854f583d3f71d780e /fml/lib | |
| parent | 09de3d5c315cb69ddbb97dd7138b67770398493c (diff) | |
| download | fml8-482256494d68dbecd8a5bd041947c9159976dc0b.tar.gz fml8-482256494d68dbecd8a5bd041947c9159976dc0b.tar.bz2 fml8-482256494d68dbecd8a5bd041947c9159976dc0b.zip | |
s/_connect6/connect6/g
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/MailingList/Net/INET6.pm | 12 | ||||
| -rw-r--r-- | fml/lib/MailingList/SMTP.pm | 2 |
2 files changed, 7 insertions, 7 deletions
diff --git a/fml/lib/MailingList/Net/INET6.pm b/fml/lib/MailingList/Net/INET6.pm index bdf50242..f0717075 100644 --- a/fml/lib/MailingList/Net/INET6.pm +++ b/fml/lib/MailingList/Net/INET6.pm @@ -17,7 +17,7 @@ use MailingList::Utils; require Exporter; @ISA = qw(Exporter); -@EXPORT = qw(is_ipv6_ready is_ipv6_mta_syntax _connect6); +@EXPORT = qw(is_ipv6_ready is_ipv6_mta_syntax connect6); sub _we_can_use_Socket6 { @@ -67,7 +67,7 @@ sub is_ipv6_mta_syntax } -sub _connect6 +sub connect6 { my ($self, $args) = @_; my $mta = $args->{ _mta }; @@ -85,7 +85,7 @@ sub _connect6 # hmm, invalid MTA unless ($host && $port) { - Log("_connect6: cannot find mta=$mta"); + Log("connect6: cannot find mta=$mta"); $self->{_socket} = undef; return undef; } @@ -149,7 +149,7 @@ MailingList::Net::INET6 - establish tcp connection over IPv6 =head1 SYNOPSIS if ($self->is_ipv6_ready($args)) { - $self->_connect6($args); + $self->connect6($args); } =head1 DESCRIPTION @@ -164,7 +164,7 @@ over IPv6. It is used within C<MailingList::SMTP> module. It checks whether your environment has Socket6.pm or not? If Socket6 module exists, we assume your operating system is IPv6 ready! -=item C<_connect6()> +=item C<connect6()> try L<connect(2)>. If it succeeds, returned @@ -174,7 +174,7 @@ $self->{ _socket } is undef. Avaialble arguments follows: - _connect6( { _mta => $mta }); + connect6( { _mta => $mta }); $mta is a hostname or [raw_ipv6_addr]:port form, for example, [::1]:25. diff --git a/fml/lib/MailingList/SMTP.pm b/fml/lib/MailingList/SMTP.pm index 94454c87..175fb25e 100644 --- a/fml/lib/MailingList/SMTP.pm +++ b/fml/lib/MailingList/SMTP.pm @@ -247,7 +247,7 @@ sub _connect # 1. try to connect(2) $args->{ _mta } by IPv6 if we can use Socket6. if ($self->is_ipv6_ready($args)) { - $self->_connect6($args); + $self->connect6($args); my $socket = $self->{_socket}; return $socket if defined $socket; } |