satisfy perlcritic...
Apocalypse
9 years ago
156 | 156 | |
157 | 157 | # Thanks to RT#95071 and RT#58243 we need to clamp the length to the TLS 16K limit |
158 | 158 | # 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; | |
162 | 160 | |
163 | 161 | # We count the number of characters written to the socket |
164 | 162 | my $wrote_len = Net::SSLeay::write( $self->{'ssl'}, substr( $buf, $offset, $len ) ); |