From d4af9b75c46cddd2cc830961eb615975ed260a9e Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 7 Nov 2001 12:40:22 +0000
Subject: [PATCH] fix it so that you can type in '0' again

---
 Changes         | 1 +
 perl/console.pl | 7 ++++---
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/Changes b/Changes
index 3c472a50..70f3e93a 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
 07Nov01=======================================================================
 1. fix is_pctext so that it actually catches corrupt spots and announces.
+2. fix console.pl so that you can type in '0' again
 06Nov01=======================================================================
 1. fix read so that sysop reading doesn't increment the read counter for 
 private mail not addressed to them.
diff --git a/perl/console.pl b/perl/console.pl
index 8af9f3b3..eae1c0ff 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -241,7 +241,7 @@ sub rec_socket
 		my ($sort, $call, $line) = $msg =~ /^(\w)([^\|]+)\|(.*)$/;
 		
 		if ($sort && $sort eq 'D') {
-			$line = " " unless $line;
+			$line = " " unless length($line);
 			addtotop($line);
 		} elsif ($sort && $sort eq 'Z') { # end, disconnect, go, away .....
 			cease(0);
@@ -269,11 +269,12 @@ sub rec_stdin
 	#  print "sys: $r ($prbuf)\n";
 	if (defined $r) {
 
+		$r = '0' if !$r;
 		
 		if ($r eq KEY_ENTER || $r eq "\n" || $r eq "\r") {
 			
 			# save the lines
-			$inbuf = " " unless $inbuf;
+			$inbuf = " " unless length($inbuf);
 
 			# check for a pling and do a search back for a command
 			if ($inbuf =~ /^!/o) {
@@ -392,7 +393,7 @@ sub rec_stdin
 		} elsif ($r eq KEY_RESIZE || $r eq "\0632") {
 			do_resize();
 			return;
-		} elsif (is_pctext($r)) {
+		} elsif (defined is_pctext($r)) {
 			# move the top screen back to the bottom if you type something
 			if ($spos < @shistory) {
 				$spos = @shistory;
-- 
2.43.0