Commit Diff

Commit:
402253c39d37b317d814246129d6db4a5f5d752a
From:
noodle <noodle@pastanoggin.com>
Date:
Message:
tighten empty socket response check and bump used perl to v5.42
Actions:
Patch | Tree
commit - 5720da41f70fef5581ee1a9149046d73c6ec6e5f
commit + 402253c39d37b317d814246129d6db4a5f5d752a
blob - 20db9c983f3f79b5db558594473acce4e35dc021
blob + 7064dd99184f74c346e04d9b781961f6d14493e5
--- mata_bot.pl
+++ 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;