view release on metacpan or search on metacpan
exercises/compile-tcsh/tcsh-6.10.00/Fixes view on Meta::CPAN
31. V6.09.02 - 20000704
30. lots more completions (George Cox)
29. change FILSIZ to BUFSIZE [now that BUFSIZE >> MAXPATHLEN] and
avoid a potential buffer overflow in sh.dir.c (Volker Schmidt)
28. _MINIX_VMD port (Martijn van Buul)
27. inet6 handling for remotehost and configure (Hajimu UMEMOTO)
26. aix-4 does not need gethostname (Darren Reed)
25. IBM OS/390 Unix Systems Services support (Peter Prymmer)
24. Fix prompt formatting (Andrey A. Chernov)
23. Use HostType from Imakefile correctly (Kjetil Torgrim Homme)
22. Handle long and expanded history lines better (Boleslaw Ciesielski)
view release on metacpan or search on metacpan
lib/Rex/Hardware/Network/Solaris.pm view on Meta::CPAN
}
sub netstat {
my @ret;
my @netstat = i_run "netstat -na -f inet -f inet6", fail_ok => 1;
if ( $? != 0 ) {
die("Error running netstat");
}
my ( $proto, $udp_v4, $udp_v6, $tcp_v4, $tcp_v6, $sctp );
view release on metacpan or search on metacpan
=item setconn CONNECTION_INFO
Sets the connection information string for the filter. The format of this
string is identical to that found in the Milter documentation. Some examples
are C<local:/var/run/f1.sock>, C<inet6:999@localhost>, C<inet:3333@localhost>.
This function returns nonzero upon success, the undefined value otherwise.
=item auto_setconn NAME [, SENDMAIL_CF_FILENAME]
view release on metacpan or search on metacpan
lib/Sendmail/PMilter.pm view on Meta::CPAN
An IPv4 socket, bound to address HOST (default INADDR_ANY), on port PORT.
It is not recommended to open milter engines to the world, so the @HOST part
should be specified.
=item inet6:PORT[@HOST]
An IPv6 socket, bound to address HOST (default INADDR_ANY), on port PORT.
This requires IPv6 support and the Perl IO::Socket::IP package to be installed.
It is not recommended to open milter engines to the world, so the @HOST part
SHOULD be specified.
lib/Sendmail/PMilter.pm view on Meta::CPAN
ReuseAddr => 1,
Listen => $backlog,
LocalPort => $2,
LocalAddr => $3
);
} elsif ($1 eq 'inet6') {
require IO::Socket::IP;
$socket = IO::Socket::IP->new(
Proto => 'tcp',
ReuseAddr => 1,
view release on metacpan or search on metacpan
examples/inet6_nonblocking.pl view on Meta::CPAN
our $RUNNING : shared = 1;
$o = select STDOUT; $| = 1; select $o;
$server = Socket::Class->new(
'domain' => 'inet6',
'local_addr' => '::1',
'listen' => 5,
'blocking' => 0,
) or die Socket::Class->error;
threads->create( \&server_thread, $server );
$client = Socket::Class->new(
'domain' => 'inet6',
'remote_addr' => '::1',
'remote_port' => $server->local_port,
'blocking' => 0,
) or die Socket::Class->error;
view release on metacpan or search on metacpan
2001-03-27 Hajimu UMEMOTO <ume@mahoroba.org>
* Socket6.pm: Bump version number to 0.10.
* Socket6.xs: Make compilable under OpenBSD. Though OpenBSD has
KAME, OpenBSD doesn't have netinet6/ipsec.h.
Reported by: Tim Ayers <cpantest@quaday.com>
2001-03-21 Hajimu UMEMOTO <ume@mahoroba.org>
* Socket6.pm: Bump version number to 0.09.
view release on metacpan or search on metacpan
lib/Syntax/Kamelon/XML/apparmor.xml view on Meta::CPAN
<item>appletalk</item>
<item>netrom</item>
<item>bridge</item>
<item>atmpvc</item>
<item>x25</item>
<item>inet6</item>
<item>rose</item>
<item>netbeui</item>
<item>security</item>
<item>key</item>
<item>packet</item>
view release on metacpan or search on metacpan
HostAddr.pm view on Meta::CPAN
$cmd = 'ipconfig';
$param = '/all';
}else{
$cmd = 'ifconfig';
$param = $getint || '-a';
$param .= ' inet6' if($self->{ipv} eq '6' && $^O eq 'solaris');
}
my @config = $self->_get_stdout($cmd, $param);
return( \@config );
}
HostAddr.pm view on Meta::CPAN
sub _mkipv {
my $self = shift;
return ( ($^O eq 'MSWin32' || $^O eq 'cygwin') && $self->{ipv} eq '6' ) ? 'IPv6 Address' :
($^O eq 'MSWin32' || $^O eq 'cygwin') ? 'IPv4 Address' :
($self->{ipv} eq '6') ? 'inet6' :
'inet';
}
sub _get_stdout {
my $self = shift;
view release on metacpan or search on metacpan
lib/Sys/HostIP.pm view on Meta::CPAN
# [goldenboy:~] adamb $ ip address
# 1: lo: <LOOPBACK,UP,LOWER_UP> mtu 65536 qdisc noqueue state UNKNOWN group default
# link/loopback 00:00:00:00:00:00 brd 00:00:00:00:00:00
# inet 127.0.0.1/8 scope host lo
# valid_lft forever preferred_lft forever
# inet6 ::1/128 scope host
# valid_lft forever preferred_lft forever
# 2: eth0: <NO-CARRIER,BROADCAST,MULTICAST,UP> mtu 1500 qdisc pfifo_fast state DOWN group default qlen 1000
# link/ether 9c:b6:54:a5:64:60 brd ff:ff:ff:ff:ff:ff
#
# so the regexen involved here have to deal with the following: 1)
view release on metacpan or search on metacpan
t/backcompat/tap_archive_oprofile_reallive.tap view on Meta::CPAN
## CC net/netlink/genetlink.o
## CC fs/isofs/dir.o
## CC net/ipv4/ip_forward.o
## CC drivers/acpi/acpica/evregion.o
## CC lib/decompress_inflate.o
## CC net/ipv6/af_inet6.o
## CC fs/isofs/util.o
## CC drivers/base/map.o
## LD net/netlink/built-in.o
## CC drivers/base/devres.o
## LD drivers/cdrom/built-in.o
t/backcompat/tap_archive_oprofile_reallive.tap view on Meta::CPAN
## LD net/unix/built-in.o
## CC drivers/acpi/acpica/hwregs.o
## CC fs/nfs/inode.o
## CC drivers/acpi/acpica/hwsleep.o
## CC net/sunrpc/rpcb_clnt.o
## CC net/ipv6/inet6_connection_sock.o
## CC net/ipv4/fib_semantics.o
## CC net/sunrpc/timer.o
## CC fs/nfsd/nfssvc.o
## CC drivers/char/agp/frontend.o
## CC drivers/acpi/acpica/hwxface.o
t/backcompat/tap_archive_oprofile_reallive.tap view on Meta::CPAN
## CC drivers/acpi/acpica/nsalloc.o
## CC fs/nfs/symlink.o
## CC drivers/acpi/acpica/nseval.o
## CC net/ipv4/ipconfig.o
## CC net/sunrpc/stats.o
## CC net/ipv6/inet6_hashtables.o
## CC drivers/cpufreq/cpufreq.o
## CC fs/nfs/unlink.o
## LD drivers/char/agp/agpgart.o
## LD drivers/char/agp/built-in.o
## CC net/ipv4/inet_diag.o
view release on metacpan or search on metacpan
inc/Net/FTP.pm view on Meta::CPAN
my $nossl_warn = !$ssl_class &&
'To use SSL please install IO::Socket::SSL with version>=2.007';
# Code for detecting if we can use IPv6
my $inet6_class = eval {
require IO::Socket::IP;
no warnings 'numeric';
IO::Socket::IP->VERSION(0.25);
} && 'IO::Socket::IP' || eval {
require IO::Socket::INET6;
no warnings 'numeric';
IO::Socket::INET6->VERSION(2.62);
} && 'IO::Socket::INET6';
sub can_ssl { $ssl_class };
sub can_inet6 { $inet6_class };
$IOCLASS = $ssl_class || $inet6_class || 'IO::Socket::INET';
$family_key =
( $ssl_class ? $ssl_class->can_ipv6 : $inet6_class || '' )
eq 'IO::Socket::IP'
? 'Family' : 'Domain';
}
our @ISA = ('Exporter','Net::Cmd',$IOCLASS);
view release on metacpan or search on metacpan
clib/src/panda/unievent/socks/SocksFilter.cc view on Meta::CPAN
panda_log_debug("tcp_connect: " << req << " state:" << state);
if (state == State::terminal) return NextFilter::tcp_connect(req);
if (req->addr) {
addr = req->addr;
if (!addr.is_inet4() && !addr.is_inet6()) throw Error("Unknown address family");
} else {
host = req->host;
port = req->port;
hints = req->hints;
}
clib/src/panda/unievent/socks/SocksFilter.cc view on Meta::CPAN
if (addr) {
if (addr.is_inet4()) {
auto& sa4 = addr.as_inet4();
data = string("\x05\x01\x00\x01") + string_view((char*)&sa4.addr(), 4) + string_view((char*)&sa4.get()->sin_port, 2);
} else {
auto& sa6 = addr.as_inet6();
data = string("\x05\x01\x00\x04") + string((char*)&sa6.addr(), 16) + string((char*)&sa6.get()->sin6_port, 2);
}
} else {
uint16_t nport = htons(port);
data = string("\x05\x01\x00\x03") + (char)host.length() + host + string((char*)&nport, 2);
view release on metacpan or search on metacpan
clib/tests/resolver.cc view on Meta::CPAN
for (auto ai = v.res[0]; ai; ai = ai.next()) {
auto addr = ai.addr();
CHECK(addr.port() == 80);
if (addr.is_inet4()) CHECK(addr.ip() == "127.0.0.1");
else if (addr.is_inet6()) CHECK(addr.ip() == "::1");
}
}
TEST("cache limit") {
Vars v(3);
view release on metacpan or search on metacpan
bin/mock_onfido.pl view on Meta::CPAN
my $loop = IO::Async::Loop->new();
$loop->add($httpserver);
$httpserver->listen(
addr => {
family => "inet6",
socktype => "stream",
port => 3000
},
)->get;
view release on metacpan or search on metacpan
c-ares-1.34.3/CMakeLists.txt view on Meta::CPAN
CHECK_INCLUDE_FILES (limits.h HAVE_LIMITS_H)
CHECK_INCLUDE_FILES (malloc.h HAVE_MALLOC_H)
CHECK_INCLUDE_FILES (memory.h HAVE_MEMORY_H)
CHECK_INCLUDE_FILES (netdb.h HAVE_NETDB_H)
CHECK_INCLUDE_FILES (netinet/in.h HAVE_NETINET_IN_H)
CHECK_INCLUDE_FILES (netinet6/in6.h HAVE_NETINET6_IN6_H)
# On old MacOS SDK versions, you must include sys/socket.h before net/if.h
IF (HAVE_SYS_SOCKET_H)
CHECK_INCLUDE_FILES ("sys/socket.h;net/if.h" HAVE_NET_IF_H)
ELSE ()
CHECK_INCLUDE_FILES (net/if.h HAVE_NET_IF_H)
c-ares-1.34.3/CMakeLists.txt view on Meta::CPAN
CARES_EXTRAINCLUDE_IFSET (HAVE_ARPA_NAMESER_H arpa/nameser.h)
CARES_EXTRAINCLUDE_IFSET (HAVE_NETDB_H netdb.h)
CARES_EXTRAINCLUDE_IFSET (HAVE_NET_IF_H net/if.h)
CARES_EXTRAINCLUDE_IFSET (HAVE_IFADDRS_H ifaddrs.h)
CARES_EXTRAINCLUDE_IFSET (HAVE_NETINET_IN_H netinet/in.h)
CARES_EXTRAINCLUDE_IFSET (HAVE_NETINET6_IN6_H netinet6/in6.h)
CARES_EXTRAINCLUDE_IFSET (HAVE_NETINET_TCP_H netinet/tcp.h)
CARES_EXTRAINCLUDE_IFSET (HAVE_SIGNAL_H signal.h)
CARES_EXTRAINCLUDE_IFSET (HAVE_STDLIB_H stdlib.h)
CARES_EXTRAINCLUDE_IFSET (HAVE_STRING_H string.h)
CARES_EXTRAINCLUDE_IFSET (HAVE_STRINGS_H strings.h)
view release on metacpan or search on metacpan
libunievent/tests/resolver.cc view on Meta::CPAN
for (auto ai = v.res[0]; ai; ai = ai.next()) {
auto addr = ai.addr();
CHECK(addr.port() == 80);
if (addr.is_inet4()) CHECK(addr.ip() == "127.0.0.1");
else if (addr.is_inet6()) CHECK(addr.ip() == "::1");
}
}
TEST("cache limit") {
Vars v(3);
view release on metacpan or search on metacpan
libuv-1.49.2/src/unix/aix.c view on Meta::CPAN
}
int uv_interface_addresses(uv_interface_address_t** addresses, int* count) {
uv_interface_address_t* address;
int sockfd, sock6fd, inet6, i, r, size = 1;
struct ifconf ifc;
struct ifreq *ifr, *p, flg;
struct in6_ifreq if6;
struct sockaddr_dl* sa_addr;
libuv-1.49.2/src/unix/aix.c view on Meta::CPAN
if (!(p->ifr_addr.sa_family == AF_INET6 ||
p->ifr_addr.sa_family == AF_INET))
continue;
inet6 = (p->ifr_addr.sa_family == AF_INET6);
memcpy(flg.ifr_name, p->ifr_name, sizeof(flg.ifr_name));
if (ioctl(sockfd, SIOCGIFFLAGS, &flg) == -1)
goto syserror;
libuv-1.49.2/src/unix/aix.c view on Meta::CPAN
/* All conditions above must match count loop */
address->name = uv__strdup(p->ifr_name);
if (inet6)
address->address.address6 = *((struct sockaddr_in6*) &p->ifr_addr);
else
address->address.address4 = *((struct sockaddr_in*) &p->ifr_addr);
if (inet6) {
memset(&if6, 0, sizeof(if6));
r = uv__strscpy(if6.ifr_name, p->ifr_name, sizeof(if6.ifr_name));
if (r == UV_E2BIG)
goto cleanup;
r = 0;
view release on metacpan or search on metacpan
Config_xs.in view on Meta::CPAN
i_memory, T_INV,0,ALN64I"@@i_memory@@"
i_mntent, T_INV,0,ALN64I"@@i_mntent@@"
i_ndbm, T_INV,0,ALN64I"@@i_ndbm@@"
i_netdb, T_INV,0,ALN64I"@@i_netdb@@"
i_neterrno, T_INV,0,ALN64I"@@i_neterrno@@"
i_netinet6_in6, T_INV,0,ALN64I"@@i_netinet6_in6@@"
i_netinet_ip, T_INV,0,ALN64I"@@i_netinet_ip@@"
i_netinet_ip6, T_INV,0,ALN64I"@@i_netinet_ip6@@"
i_netinettcp, T_INV,0,ALN64I"@@i_netinettcp@@"
i_niin, T_INV,0,ALN64I"@@i_niin@@"
i_poll, T_INV,0,ALN64I"@@i_poll@@"
view release on metacpan or search on metacpan
docs/installation.md view on Meta::CPAN
```
2) Install all necessary packages.
```sh
sudo apt-get install build-essential libfile-slurp-perl libjson-perl liblist-moreutils-perl libio-socket-inet6-perl libmodule-find-perl libmoose-perl libfile-sharedir-perl libhash-merge-perl libreadonly-perl libmail-rfc822-address-perl libintl-xs-per...
```
3) Install the Zonemaster engine
```sh
view release on metacpan or search on metacpan
local/lib/perl5/IO/Socket/SSL.pm view on Meta::CPAN
}
}
# Export some stuff
# inet4|inet6|debug will be handled by myself, everything
# else will be handled the Exporter way
sub import {
my $class = shift;
my @export;
foreach (@_) {
if ( /^inet4$/i ) {
# explicitly fall back to inet4
@ISA = 'IO::Socket::INET';
@caller_force_inet4 = caller(); # save for warnings for 'inet6' case
} elsif ( /^inet6$/i ) {
# check if we have already ipv6 as base
if ( ! UNIVERSAL::isa( $class, 'IO::Socket::INET6')
and ! UNIVERSAL::isa( $class, 'IO::Socket::IP' )) {
# either we don't support it or we disabled it by explicitly
# loading it with 'inet4'. In this case re-enable but warn
view release on metacpan or search on metacpan
bin/circle-fe-term view on Meta::CPAN
GetOptions(
'identity|i=s' => \$IDENTITY,
'metrics-port=i' => \my $METRICS_PORT,
'help' => sub { usage(0) },
'4|ipv4' => sub { $FAMILY = "inet4" },
'6|ipv6' => sub { $FAMILY = "inet6" },
) or usage(1);
sub usage
{
my ( $exitcode ) = @_;
view release on metacpan or search on metacpan
lib/JUNOS/6.4I0/jroute_methods.pl view on Meta::CPAN
get_isis_route_information => {
logical_router => $STRING,
instance => $STRING,
destination => $STRING,
inet => $TOGGLE,
inet6 => $TOGGLE,
topology => $STRING,
},
## Method : <get-isis-spf-information>
## Returns: <isis-spf-information>
lib/JUNOS/6.4I0/jroute_methods.pl view on Meta::CPAN
inactive => $TOGGLE,
brief => $TOGGLE,
detail => $TOGGLE,
extensive => $TOGGLE,
inet => $TOGGLE,
inet6 => $TOGGLE,
group => $STRING,
source_prefix => $STRING,
regexp => $STRING,
instance => $STRING,
},
lib/JUNOS/6.4I0/jroute_methods.pl view on Meta::CPAN
logical_router => $STRING,
brief => $TOGGLE,
detail => $TOGGLE,
identifier => $STRING,
inet => $TOGGLE,
inet6 => $TOGGLE,
},
## Method : <get-multicast-rpf-information>
## Returns: <multicast-rpf-information>
## Command: "show multicast rpf"
get_multicast_rpf_information => {
logical_router => $STRING,
summary => $TOGGLE,
prefix => $STRING,
inet => $TOGGLE,
inet6 => $TOGGLE,
instance => $STRING,
},
## Method : <get-multicast-scope-information>
## Returns: <multicast-scope-information>
## Command: "show multicast scope"
get_multicast_scope_information => {
logical_router => $STRING,
inet => $TOGGLE,
inet6 => $TOGGLE,
instance => $STRING,
},
## Method : <get-multicast-sessions-information>
## Returns: <multicast-sessions-information>
lib/JUNOS/6.4I0/jroute_methods.pl view on Meta::CPAN
## Returns: <multicast-statistics-information>
## Command: "show multicast statistics"
get_multicast_statistics_information => {
logical_router => $STRING,
inet => $TOGGLE,
inet6 => $TOGGLE,
instance => $STRING,
},
## Method : <get-multicast-usage-information>
## Returns: <multicast-usage-information>
lib/JUNOS/6.4I0/jroute_methods.pl view on Meta::CPAN
logical_router => $STRING,
brief => $TOGGLE,
detail => $TOGGLE,
instance => $STRING,
inet => $TOGGLE,
inet6 => $TOGGLE,
},
## Method : <get-pim-bootstrap-information>
## Returns: <pim-bootstrap-information>
## Command: "show pim bootstrap"
lib/JUNOS/6.4I0/jroute_methods.pl view on Meta::CPAN
get_pim_interfaces_information => {
logical_router => $STRING,
interface_name => $STRING,
instance => $STRING,
inet => $TOGGLE,
inet6 => $TOGGLE,
},
## Method : <get-pim-join-information>
## Returns: <pim-join-information>
## Command: "show pim join"
lib/JUNOS/6.4I0/jroute_methods.pl view on Meta::CPAN
detail => $TOGGLE,
extensive => $TOGGLE,
range => $STRING,
instance => $STRING,
inet => $TOGGLE,
inet6 => $TOGGLE,
},
## Method : <get-pim-neighbors-information>
## Returns: <pim-neighbors-information>
## Command: "show pim neighbors"
lib/JUNOS/6.4I0/jroute_methods.pl view on Meta::CPAN
logical_router => $STRING,
brief => $TOGGLE,
detail => $TOGGLE,
instance => $STRING,
inet => $TOGGLE,
inet6 => $TOGGLE,
},
## Method : <get-pim-rps-information>
## Returns: <pim-rps-information>
## Command: "show pim rps"
lib/JUNOS/6.4I0/jroute_methods.pl view on Meta::CPAN
detail => $TOGGLE,
extensive => $TOGGLE,
group_address => $STRING,
instance => $STRING,
inet => $TOGGLE,
inet6 => $TOGGLE,
},
## Method : <get-pim-source-information>
## Returns: <pim-source-information>
## Command: "show pim source"
lib/JUNOS/6.4I0/jroute_methods.pl view on Meta::CPAN
brief => $TOGGLE,
detail => $TOGGLE,
source => $STRING,
instance => $STRING,
inet => $TOGGLE,
inet6 => $TOGGLE,
},
## Method : <get-pim-statistics-information>
## Returns: <pim-statistics-information>
## Command: "show pim statistics"
get_pim_statistics_information => {
logical_router => $STRING,
interface => $STRING,
inet => $TOGGLE,
inet6 => $TOGGLE,
instance => $STRING,
},
## Method : <get-sap-listen-information>
## Returns: <sap-listen-information>
view release on metacpan or search on metacpan
lib/Net/FTP.pm view on Meta::CPAN
my $nossl_warn = !$ssl_class &&
'To use SSL please install IO::Socket::SSL with version>=2.007';
# Code for detecting if we can use IPv6
my $inet6_class = eval {
require IO::Socket::IP;
no warnings 'numeric';
IO::Socket::IP->VERSION(0.25);
} && 'IO::Socket::IP' || eval {
require IO::Socket::INET6;
no warnings 'numeric';
IO::Socket::INET6->VERSION(2.62);
} && 'IO::Socket::INET6';
sub can_ssl { $ssl_class };
sub can_inet6 { $inet6_class };
$IOCLASS = $ssl_class || $inet6_class || 'IO::Socket::INET';
$family_key =
( $ssl_class ? $ssl_class->can_ipv6 : $inet6_class || '' )
eq 'IO::Socket::IP'
? 'Family' : 'Domain';
}
our @ISA = ('Exporter','Net::Cmd',$IOCLASS);
lib/Net/FTP.pm view on Meta::CPAN
Returns most significant digit of the response code.
B<WARNING> This call should only be used on commands that do not require
data connections. Misuse of this method can hang the connection.
=item C<can_inet6()>
Returns whether we can use IPv6.
=item C<can_ssl()>
view release on metacpan or search on metacpan
lib/Net/LDAP.pm view on Meta::CPAN
sub connect_ldap {
my ($ldap, $host, $arg) = @_;
my $port = $arg->{port} || 389;
my $class = (CAN_IPV6) ? CAN_IPV6 : 'IO::Socket::INET';
my $domain = $arg->{inet4} ? AF_INET : ($arg->{inet6} ? AF_INET6 : AF_UNSPEC);
# separate port from host overwriting given/default port
$host =~ s/^([^:]+|\[.*\]):(\d+)$/$1/ and $port = $2;
if ($arg->{inet6} && !CAN_IPV6) {
$@ = 'unable to load IO::Socket::INET6; no IPv6 support';
return undef;
}
$ldap->{net_ldap_socket} = $class->new(
lib/Net/LDAP.pm view on Meta::CPAN
my %ssl_verify = qw(none 0 optional 1 require 3);
sub connect_ldaps {
my ($ldap, $host, $arg) = @_;
my $port = $arg->{port} || 636;
my $domain = $arg->{inet4} ? AF_INET : ($arg->{inet6} ? AF_INET6 : AF_UNSPEC);
if ($arg->{inet6} && !CAN_IPV6) {
$@ = 'unable to load IO::Socket::INET6; no IPv6 support';
return undef;
}
require IO::Socket::SSL;
view release on metacpan or search on metacpan
cpan/libnet/lib/Net/FTP.pm view on Meta::CPAN
my $nossl_warn = !$ssl_class &&
'To use SSL please install IO::Socket::SSL with version>=2.007';
# Code for detecting if we can use IPv6
my $inet6_class = eval {
require IO::Socket::IP;
no warnings 'numeric';
IO::Socket::IP->VERSION(0.25);
} && 'IO::Socket::IP' || eval {
require IO::Socket::INET6;
no warnings 'numeric';
IO::Socket::INET6->VERSION(2.62);
} && 'IO::Socket::INET6';
sub can_ssl { $ssl_class };
sub can_inet6 { $inet6_class };
$IOCLASS = $ssl_class || $inet6_class || 'IO::Socket::INET';
$family_key =
( $ssl_class ? $ssl_class->can_ipv6 : $inet6_class || '' )
eq 'IO::Socket::IP'
? 'Family' : 'Domain';
}
our @ISA = ('Exporter','Net::Cmd',$IOCLASS);
cpan/libnet/lib/Net/FTP.pm view on Meta::CPAN
Returns most significant digit of the response code.
B<WARNING> This call should only be used on commands that do not require
data connections. Misuse of this method can hang the connection.
=item C<can_inet6()>
Returns whether we can use IPv6.
=item C<can_ssl()>