FM / SSLeay

/usr/lib/x86_64-linux-gnu/perl5/5.34/auto/Net/SSLeay/

/usr/lib/x86_64-linux-gnu/perl5/5.34/auto/Net/SSLeay

Name	Size	Mode	Actions
autosplit.ix	1581	0644	edit dl rm
debug_read.al	677	0644	edit dl rm
do_https.al	508	0644	edit dl rm
do_https2.al	446	0644	edit dl rm
do_https3.al	466	0644	edit dl rm
do_https4.al	357	0644	edit dl rm
do_httpx2.al	559	0644	edit dl rm
do_httpx3.al	1558	0644	edit dl rm
do_httpx4.al	544	0644	edit dl rm
dump_peer_certificate.al	959	0644	edit dl rm
get_http.al	316	0644	edit dl rm
get_http3.al	319	0644	edit dl rm
get_http4.al	319	0644	edit dl rm
get_https.al	319	0644	edit dl rm
get_https3.al	322	0644	edit dl rm
get_https4.al	322	0644	edit dl rm
get_httpx.al	316	0644	edit dl rm
get_httpx3.al	319	0644	edit dl rm
get_httpx4.al	319	0644	edit dl rm
head_http.al	319	0644	edit dl rm
head_http3.al	322	0644	edit dl rm
head_http4.al	346	0644	edit dl rm
head_https.al	322	0644	edit dl rm
head_https3.al	325	0644	edit dl rm
head_https4.al	333	0644	edit dl rm
head_httpx.al	319	0644	edit dl rm
head_httpx3.al	322	0644	edit dl rm
head_httpx4.al	399	0644	edit dl rm
https_cat.al	3028	0644	edit dl rm
httpx_cat.al	558	0644	edit dl rm
http_cat.al	1203	0644	edit dl rm
initialize.al	815	0644	edit dl rm
make_form.al	604	0644	edit dl rm
make_headers.al	575	0644	edit dl rm
new_x_ctx.al	1858	0644	edit dl rm
open_proxy_tcp_connection.al	1284	0644	edit dl rm
open_tcp_connection.al	1482	0644	edit dl rm
post_http.al	318	0644	edit dl rm
post_http3.al	321	0644	edit dl rm
post_http4.al	321	0644	edit dl rm
post_https.al	321	0644	edit dl rm
post_https3.al	324	0644	edit dl rm
post_https4.al	324	0644	edit dl rm
post_httpx.al	318	0644	edit dl rm
post_httpx3.al	321	0644	edit dl rm
post_httpx4.al	321	0644	edit dl rm
put_http.al	316	0644	edit dl rm
put_http3.al	319	0644	edit dl rm
put_http4.al	319	0644	edit dl rm
put_https.al	319	0644	edit dl rm
put_https3.al	322	0644	edit dl rm
put_https4.al	322	0644	edit dl rm
put_httpx.al	316	0644	edit dl rm
put_httpx3.al	319	0644	edit dl rm
put_httpx4.al	319	0644	edit dl rm
randomize.al	1028	0644	edit dl rm
set_cert_and_key.al	828	0644	edit dl rm
set_proxy.al	540	0644	edit dl rm
set_server_cert_and_key.al	413	0644	edit dl rm
sslcat.al	3196	0644	edit dl rm
SSLeay.so	636928	0644	edit dl rm
ssl_read_all.al	1047	0644	edit dl rm
ssl_read_CRLF.al	385	0644	edit dl rm
ssl_read_until.al	3144	0644	edit dl rm
ssl_write_all.al	5734	0644	edit dl rm
ssl_write_CRLF.al	813	0644	edit dl rm
tcpcat.al	1358	0644	edit dl rm
tcpxcat.al	485	0644	edit dl rm
tcp_read_all.al	757	0644	edit dl rm
tcp_read_CRLF.al	401	0644	edit dl rm
tcp_read_until.al	971	0644	edit dl rm
tcp_write_all.al	1232	0644	edit dl rm
tcp_write_CRLF.al	794	0644	edit dl rm
want_nothing.al	357	0644	edit dl rm
want_read.al	309	0644	edit dl rm
want_write.al	312	0644	edit dl rm
want_X509_lookup.al	441	0644	edit dl rm

Edit: /usr/lib/x86_64-linux-gnu/perl5/5.34/auto/Net/SSLeay/tcp_write_all.al (1232B)

# 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 1183 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/tcp_write_all.al)"
sub tcp_write_all {
    my ($data_ref, $errs);
    if (ref $_[0]) {
	$data_ref = $_[0];
    } else {
	$data_ref = \$_[0];
    }
    my ($wrote, $written, $to_write) = (0,0, blength($$data_ref));
    my $vm = $trace>2 && $linux_debug ?
	(split ' ', `cat /proc/$$/stat`)[22] : 'vm_unknown';
    warn "  write_all VM at entry=$vm to_write=$to_write\n" if $trace>2;
    while ($to_write) {
	warn "partial `$$data_ref'\n" if $trace>3;
	$wrote = syswrite(SSLCAT_S, $$data_ref, $to_write, $written);
	if (defined $wrote && ($wrote > 0)) {  # write_partial can return -1
	    $written += $wrote;
	    $to_write -= $wrote;
	} elsif (!defined($wrote)) {
	    warn "tcp_write_all: $!";
	    return (wantarray ? (undef, "$!") : undef);
	}
	$vm = $trace>2 && $linux_debug ?
	    (split ' ', `cat /proc/$$/stat`)[22] : 'vm_unknown';
	warn "  written so far $wrote:$written bytes (VM=$vm)\n" if $trace>2;
    }
    return wantarray ? ($written, '') : $written;
}

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

cmd: