FM / SSLeay

/usr/local/lib64/perl5.legacy/auto/Net/SSLeay/

/usr/local/lib64/perl5.legacy/auto/Net/SSLeay

Name	Size	Mode	Actions
.packlist	4398	0644	edit dl rm
autosplit.ix	1581	0444	edit dl rm
debug_read.al	677	0444	edit dl rm
do_https.al	508	0444	edit dl rm
do_https2.al	446	0444	edit dl rm
do_https3.al	466	0444	edit dl rm
do_https4.al	357	0444	edit dl rm
do_httpx2.al	559	0444	edit dl rm
do_httpx3.al	1558	0444	edit dl rm
do_httpx4.al	544	0444	edit dl rm
dump_peer_certificate.al	958	0444	edit dl rm
get_http.al	316	0444	edit dl rm
get_http3.al	319	0444	edit dl rm
get_http4.al	319	0444	edit dl rm
get_https.al	319	0444	edit dl rm
get_https3.al	322	0444	edit dl rm
get_https4.al	322	0444	edit dl rm
get_httpx.al	316	0444	edit dl rm
get_httpx3.al	319	0444	edit dl rm
get_httpx4.al	319	0444	edit dl rm
head_http.al	319	0444	edit dl rm
head_http3.al	322	0444	edit dl rm
head_http4.al	346	0444	edit dl rm
head_https.al	322	0444	edit dl rm
head_https3.al	325	0444	edit dl rm
head_https4.al	333	0444	edit dl rm
head_httpx.al	319	0444	edit dl rm
head_httpx3.al	322	0444	edit dl rm
head_httpx4.al	399	0444	edit dl rm
https_cat.al	3028	0444	edit dl rm
httpx_cat.al	558	0444	edit dl rm
http_cat.al	1203	0444	edit dl rm
initialize.al	814	0444	edit dl rm
make_form.al	604	0444	edit dl rm
make_headers.al	575	0444	edit dl rm
new_x_ctx.al	1228	0444	edit dl rm
open_proxy_tcp_connection.al	1284	0444	edit dl rm
open_tcp_connection.al	1482	0444	edit dl rm
post_http.al	318	0444	edit dl rm
post_http3.al	321	0444	edit dl rm
post_http4.al	321	0444	edit dl rm
post_https.al	321	0444	edit dl rm
post_https3.al	324	0444	edit dl rm
post_https4.al	324	0444	edit dl rm
post_httpx.al	318	0444	edit dl rm
post_httpx3.al	321	0444	edit dl rm
post_httpx4.al	321	0444	edit dl rm
put_http.al	316	0444	edit dl rm
put_http3.al	319	0444	edit dl rm
put_http4.al	319	0444	edit dl rm
put_https.al	319	0444	edit dl rm
put_https3.al	322	0444	edit dl rm
put_https4.al	322	0444	edit dl rm
put_httpx.al	316	0444	edit dl rm
put_httpx3.al	319	0444	edit dl rm
put_httpx4.al	319	0444	edit dl rm
randomize.al	1027	0444	edit dl rm
set_cert_and_key.al	805	0444	edit dl rm
set_proxy.al	540	0444	edit dl rm
set_server_cert_and_key.al	413	0444	edit dl rm
sslcat.al	3124	0444	edit dl rm
SSLeay.bs	0	0444	edit dl rm
SSLeay.so	1589812	0555	edit dl rm
ssl_read_all.al	801	0444	edit dl rm
ssl_read_CRLF.al	384	0444	edit dl rm
ssl_read_until.al	3111	0444	edit dl rm
ssl_write_all.al	5733	0444	edit dl rm
ssl_write_CRLF.al	812	0444	edit dl rm
tcpcat.al	1358	0444	edit dl rm
tcpxcat.al	485	0444	edit dl rm
tcp_read_all.al	756	0444	edit dl rm
tcp_read_CRLF.al	400	0444	edit dl rm
tcp_read_until.al	970	0444	edit dl rm
tcp_write_all.al	1231	0444	edit dl rm
tcp_write_CRLF.al	793	0444	edit dl rm
want_nothing.al	357	0444	edit dl rm
want_read.al	309	0444	edit dl rm
want_write.al	312	0444	edit dl rm
want_X509_lookup.al	441	0444	edit dl rm

Edit: /usr/local/lib64/perl5.legacy/auto/Net/SSLeay/open_tcp_connection.al (1482B)

# NOTE: Derived from blib/lib/Net/SSLeay.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Net::SSLeay;

#line 472 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/open_tcp_connection.al)"
sub open_tcp_connection {
    my ($dest_serv, $port) = @_;
    my ($errs);

$port = getservbyname($port, 'tcp') unless $port =~ /^\d+$/;
    my $dest_serv_ip = gethostbyname($dest_serv);
    unless (defined($dest_serv_ip)) {
	$errs = "$0 $$: open_tcp_connection: destination host not found:"
            . " `$dest_serv' (port $port) ($!)\n";
	warn $errs if $trace;
        return wantarray ? (0, $errs) : 0;
    }
    my $sin = sockaddr_in($port, $dest_serv_ip);

warn "Opening connection to $dest_serv:$port (" .
	inet_ntoa($dest_serv_ip) . ")" if $trace>2;

my $proto = &Socket::IPPROTO_TCP; # getprotobyname('tcp') not available on android
    if (socket (SSLCAT_S, &PF_INET(), &SOCK_STREAM(), $proto)) {
        warn "next connect" if $trace>3;
        if (CORE::connect (SSLCAT_S, $sin)) {
            my $old_out = select (SSLCAT_S); $| = 1; select ($old_out);
            warn "connected to $dest_serv, $port" if $trace>3;
            return wantarray ? (1, undef) : 1; # Success
        }
    }
    $errs = "$0 $$: open_tcp_connection: failed `$dest_serv', $port ($!)\n";
    warn $errs if $trace;
    close SSLCAT_S;
    return wantarray ? (0, $errs) : 0; # Fail
}

# end of Net::SSLeay::open_tcp_connection
1;

# NOTE: Derived from blib/lib/Net/SSLeay.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Net::SSLeay; #line 472 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/open_tcp_connection.al)" sub open_tcp_connection { my ($dest_serv, $port) = @_; my ($errs); $port = getservbyname($port, 'tcp') unless $port =~ /^\d+$/; my $dest_serv_ip = gethostbyname($dest_serv); unless (defined($dest_serv_ip)) { $errs = "$0 $$: open_tcp_connection: destination host not found:" . " `$dest_serv' (port $port) ($!)\n"; warn $errs if $trace; return wantarray ? (0, $errs) : 0; } my $sin = sockaddr_in($port, $dest_serv_ip); warn "Opening connection to $dest_serv:$port (" . inet_ntoa($dest_serv_ip) . ")" if $trace>2; my $proto = &Socket::IPPROTO_TCP; # getprotobyname('tcp') not available on android if (socket (SSLCAT_S, &PF_INET(), &SOCK_STREAM(), $proto)) { warn "next connect" if $trace>3; if (CORE::connect (SSLCAT_S, $sin)) { my $old_out = select (SSLCAT_S); $| = 1; select ($old_out); warn "connected to $dest_serv, $port" if $trace>3; return wantarray ? (1, undef) : 1; # Success } } $errs = "$0 $$: open_tcp_connection: failed `$dest_serv', $port ($!)\n"; warn $errs if $trace; close SSLCAT_S; return wantarray ? (0, $errs) : 0; # Fail } # end of Net::SSLeay::open_tcp_connection 1;