commit 402253c39d37b317d814246129d6db4a5f5d752a
parent 5720da41f70fef5581ee1a9149046d73c6ec6e5f
Author: noodle <noodle@pastanoggin.com>
Date: Sat, 3 Jan 2026 11:49:44 +0000
tighten empty socket response check and bump used perl to v5.42
Diffstat:
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/mata_bot.pl b/mata_bot.pl
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-use v5.40;
+use v5.42;
use HTTP::Tiny;
use IO::Select;
@@ -283,7 +283,7 @@ sub recvmsg {
}
return '';
}
- unless ($line = <$sock>) {
+ unless (length($line = <$sock>) > 0) {
if ($!) { logger(LOG_ERROR, $!) }
else { logger(LOG_WARN, 'recieved an empty message') }
return undef;