From d70bde8805800473da0f25671902f1b4b07eecca Mon Sep 17 00:00:00 2001
From: Matt Caswell <matt@openssl.org>
Date: Tue, 22 Nov 2016 16:16:23 +0000
Subject: [PATCH] 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>
---
 util/TLSProxy/Message.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/util/TLSProxy/Message.pm b/util/TLSProxy/Message.pm
index 8e743c56d3..e5c42c83c4 100644
--- a/util/TLSProxy/Message.pm
+++ b/util/TLSProxy/Message.pm
@@ -187,7 +187,7 @@ sub get_messages
                 $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
-- 
2.34.1