X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=blobdiff_plain;f=util%2Fperl%2FTLSProxy%2FMessage.pm;h=9eebfaad7a2157d96493765b5083004f2096949a;hp=ee507f9e21d814dd491cd460fcb6e4d1ba6e43f6;hb=3b09585bd67c41445be4be8a84233e5d9a699264;hpb=00f2bafec16b5981cc35c721dae35533c918cb0d;ds=sidebyside diff --git a/util/perl/TLSProxy/Message.pm b/util/perl/TLSProxy/Message.pm index ee507f9e21..9eebfaad7a 100644 --- a/util/perl/TLSProxy/Message.pm +++ b/util/perl/TLSProxy/Message.pm @@ -238,7 +238,7 @@ sub get_messages $startoffset = $recoffset; $recoffset += 4; $payload = ""; - + if ($recoffset <= $record->decrypt_len) { #Some payload data is present in this record if ($record->decrypt_len - $recoffset >= $messlen) { @@ -410,7 +410,7 @@ sub new $records, $startoffset, $message_frag_lens) = @_; - + my $self = { server => $server, data => $data,