Package list libpoe-component-sslify-perl / f804305
satisfy perlcritic... Apocalypse 7 years ago
1 changed file(s) with 1 addition(s) and 3 deletion(s). Raw diff Collapse all Expand all
156156
157157 # Thanks to RT#95071 and RT#58243 we need to clamp the length to the TLS 16K limit
158158 # seems like the same thing happened to https://www.mail-archive.com/openssl-users@openssl.org/msg28151.html
159 if ( $len > 16384 ) {
160 $len = 16384;
161 }
159 $len = 16_384 if $len > 16_384;
162160
163161 # We count the number of characters written to the socket
164162 my $wrote_len = Net::SSLeay::write( $self->{'ssl'}, substr( $buf, $offset, $len ) );