1 # NOTE: Derived from blib/lib/Net/SSLeay.pm.
2 # Changes made here will be lost when autosplit is run again.
6 #line 1909 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/ssl_write_all.al)"
15 my ($wrote, $written, $to_write) = (0,0, blength($$data_ref));
16 my $vm = $trace>2 && $linux_debug ?
17 (split ' ', `cat /proc/$$/stat`)[22] : 'vm_unknown';
18 warn " write_all VM at entry=$vm\n" if $trace>2;
21 warn "partial `$$data_ref'\n" if $trace>3;
22 $wrote = write_partial($ssl, $written, $to_write, $$data_ref);
23 if (defined $wrote && ($wrote > 0)) { # write_partial can return -1
27 $vm = $trace>2 && $linux_debug ?
28 (split ' ', `cat /proc/$$/stat`)[22] : 'vm_unknown';
29 warn " written so far $wrote:$written bytes (VM=$vm)\n" if $trace>2;
31 $errs .= print_errs('SSL_write');
32 return (wantarray ? (undef, $errs) : undef) if $errs;
34 return wantarray ? ($written, $errs) : $written;
37 # end of Net::SSLeay::ssl_write_all