Fix a bug in TLSProxy where zero length messages were not being recorded

Perl changes reviewed by Richard Levitte. Non-perl changes reviewed by Rich
Salz

Reviewed-by: Rich Salz <rsalz@openssl.org>
Reviewed-by: Richard Levitte <levitte@openssl.org>

diff --git a/util/TLSProxy/Message.pm b/util/TLSProxy/Message.pm
index 8e743c56d3ce9d11faa38b1056d538343d43ef34..e5c42c83c450bfd726a2796a81880e625e0e24b5 100644 (file)
--- a/util/TLSProxy/Message.pm
+++ b/util/TLSProxy/Message.pm
@@ -187,7 +187,7 @@ sub get_messages
                 $recoffset += 4;
                 $payload = "";
                 
                 $recoffset += 4;
                 $payload = "";
                 

-                if ($recoffset < $record->decrypt_len) {
+                if ($recoffset <= $record->decrypt_len) {

                     #Some payload data is present in this record
                     if ($record->decrypt_len - $recoffset >= $messlen) {
                         #We can complete the message with this record
                     #Some payload data is present in this record
                     if ($record->decrypt_len - $recoffset >= $messlen) {
                         #We can complete the message with this record