diff options
| author | fukachan <fukachan> | 2001-10-10 09:46:21 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-10-10 09:46:21 +0000 |
| commit | 6f3e0dd06672c507fd53ae910d4ef2aeb66490e7 (patch) | |
| tree | 60c3575123c99f74906f082599c6af2308cfea1f /fml/lib/Mail/Delivery/Net | |
| parent | e1faf1fce0fa2fddab59c6fdeeb27ec0aad8e065 (diff) | |
| download | fml8-6f3e0dd06672c507fd53ae910d4ef2aeb66490e7.tar.gz fml8-6f3e0dd06672c507fd53ae910d4ef2aeb66490e7.tar.bz2 fml8-6f3e0dd06672c507fd53ae910d4ef2aeb66490e7.zip | |
oops, old IO::Socket has no connected() method.
modified to use our own socket_is_connected() method or remove
connected() check.
Diffstat (limited to 'fml/lib/Mail/Delivery/Net')
| -rw-r--r-- | fml/lib/Mail/Delivery/Net/INET6.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/fml/lib/Mail/Delivery/Net/INET6.pm b/fml/lib/Mail/Delivery/Net/INET6.pm index b3663b8c..a311ef05 100644 --- a/fml/lib/Mail/Delivery/Net/INET6.pm +++ b/fml/lib/Mail/Delivery/Net/INET6.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: INET6.pm,v 1.4 2001/05/31 11:02:34 fukachan Exp $ +# $FML: INET6.pm,v 1.5 2001/10/10 08:51:08 fukachan Exp $ # package Mail::Delivery::Net::INET6; @@ -133,7 +133,9 @@ sub connect6 } # check socket is under connected state. - if (($family != -1) && defined($fh) && ($fh->connected)) { + # XXX sub $socket->connected { getpeername($self);} + # XXX IO::Socket of old perl have no such method. + if (($family != -1) && defined($fh)) { if ($family == AF_INET6) { $self->{_socket} = $fh; Log("connected to $host:$port by IPv6"); |