commit dbcfa451afea4a8bf56933462988cf943d663490
from: noodle <noodle@pastanoggin.com>
date: Wed Dec 24 23:12:21 2025 UTC

go back to buffered line io because unbuffered char io breaks on libera

commit - ccf6cafd5702b1123984566174106667c39070a5
commit + dbcfa451afea4a8bf56933462988cf943d663490
blob - 4d781faffcc83a3c1633897dcefa253b36804743
blob + 734a85eefab6b29d75ab92eba7bd36311a6cd2fc
--- mata_bot.pl
+++ mata_bot.pl
@@ -239,7 +239,7 @@ sub logger {
 	my ($level, $msg) = @_;
 
 	if ($msg) {
-		syswrite(STDERR, $msg . "\n") if $loglevel >= $level
+		say STDERR $msg if $loglevel >= $level
 	} else {
 		$loglevel = $level;
 	}
@@ -255,7 +255,7 @@ sub sendmsg {
 		else { logger(LOG_WARN, "sock not ready to write") }
 		return 0;
 	}
-	syswrite($sock, $msg . "\r\n");
+	print $sock $msg . "\r\n";
 	logger(LOG_DEBUG, "<- " . $msg);
 	return 1;
 }
@@ -265,7 +265,7 @@ sub recvmsg {
 	my $s = shift;
 
 	while(1) {
-		my ($chunk, $sock);
+		my ($line, $sock);
 
 		$_ = $buf;
 		if (not length) {
@@ -277,7 +277,7 @@ sub recvmsg {
 			logger(LOG_ERROR, 'recieved a malformed message');
 			return undef;
 		}
-		# read a chunk
+		# read a line
 		$! = 0;
 		unless (($sock) = $s->can_read($SOCK_TIMEOUT)) {
 			if ($!)	{
@@ -286,12 +286,12 @@ sub recvmsg {
 			}
 			return '';
 		}
-		unless (sysread($sock, $chunk, 1)) {
+		unless ($line = <$sock>) {
 			if ($!) { logger(LOG_ERROR, $!) }
 			else { logger(LOG_WARN, 'recieved an empty message') }
 			return undef;
 		}
-		$buf .= $chunk;
+		$buf .= $line;
 	}
 }
 
@@ -337,7 +337,7 @@ sub evasdrop {
 }
 
 sub usage {
-	syswrite(STDERR, "usage: ${0} [-d|-v] [-t] [-b path] [-e path] [-h host] [-j join] [-p port] [-q path]\n");
+	say STDERR "usage: ${0} [-d|-v] [-t] [-b path] [-e path] [-h host] [-j join] [-p port] [-q path]";
 	exit 1;
 }