in reply to Max 16384 bytes
Here an IO::Socket::SSL syswrite() snippet:
This limit only happends with IO::Socket::SSL but not with IO::Socket::INET so I was a bit confused.
my $buffer = 'x' x 100000000; my $length = length($buffer); my $offset = 0; my $i = 0; my $client = $ipc->accept(); warn "connect from: ", $client->peerhost, "\n"; warn "print $length bytes to client\n"; while ($length) { my $written = syswrite($client, $buffer, $length, $offset); die "System write error: $!\n" unless defined $written; $length -= $written; $offset += $written; $i++; } warn "Iterations: $i\n";
syswrite() writes only 16k to the socket and as I googled for a reason I saw code samples withIterations: 6104
and though it could maybe a buffer limit or something else.my $blksize = (stat($fh))[11] || 16384;
This limit only happends with IO::Socket::SSL but not with IO::Socket::INET so I was a bit confused.
In Section
Seekers of Perl Wisdom