diff --git a/Changes b/Changes index fea9b0a..1dc4a09 100644 --- a/Changes +++ b/Changes @@ -2,6 +2,7 @@ {{$NEXT}} add informational test that prints out ssleay version + clamp the writes to 16K internally to get around write errors reported by RT#95071 and RT#58243, thanks! 1.009 2014-11-12T00:41:25Z UTC - Updates to the auto-generated files diff --git a/lib/POE/Component/SSLify/ServerHandle.pm b/lib/POE/Component/SSLify/ServerHandle.pm index 63a592b..7091ae3 100644 --- a/lib/POE/Component/SSLify/ServerHandle.pm +++ b/lib/POE/Component/SSLify/ServerHandle.pm @@ -153,6 +153,11 @@ # If we have nothing to offset, then start from the beginning if ( ! defined $offset ) { $offset = 0; + } + + # Thanks to RT#95071 and RT#58243 we need to clamp the length to the TLS 16K limit + if ( $len > 16384 ) { + $len = 16384; } # We count the number of characters written to the socket