From 03e6ae523b5128094ab9d6f0caf254e6ab0e9a43 Mon Sep 17 00:00:00 2001
From: jake <jake@jakes-mail.top>
Date: Sat, 16 Nov 2024 02:48:27 -0500
Subject: [PATCH] adjust a $length_of_length variable.  also had it issue a
 warning because i've not seen my code go down that route, yet

---
 keyserver      | 2 +-
 lib/KeyData.pm | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/keyserver b/keyserver
index e9e7278..d0f93d6 100755
--- a/keyserver
+++ b/keyserver
@@ -13,7 +13,7 @@ use KeyData;
 
 plugin Config => {file => $ARGV[1]};
 
-my $VERSION = "1.0.1";
+my $VERSION = "1.0.2";
 
 my $config = app->config(); # hypnotoad -f ./keyserver ./keyserver.conf
 my $start_time;
diff --git a/lib/KeyData.pm b/lib/KeyData.pm
index 4ff6f21..1981f67 100644
--- a/lib/KeyData.pm
+++ b/lib/KeyData.pm
@@ -96,8 +96,9 @@ class KeyData {
 				$length_field = unpack('n', substr($data, 1, $length_of_length));
 			}
 			elsif ($bits[6]) {
-				$length_of_length = 3;
+				$length_of_length = 4;
 				$length_field = unpack('N', substr($data, 1, $length_of_length));
+				warn "Give me the key that caused this to be emited";
 			}
 			else {
 				$length_of_length = 1;