X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=429f5d36245be86a35880a477356a2c6f1ec6f19;hb=c1eb1d4013a7d748c0fc22f778ddb719dc151a1b;hp=02a2e476831ef0567d21dc7c384c8d27a52c84bb;hpb=6e80184b4c2c222a7ab1f7ededb9e9af2be9c236;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index 02a2e476..429f5d36 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -93,6 +93,7 @@ sub rec_stdin
 				shift @history if @history > $maxhist;
 				$histpos = @history;
 				$bot->move(0,0);
+				$bot->clrtoeol();
 				$bot->addstr(substr($inbuf, 0, COLS));
 			}
 		
@@ -129,7 +130,7 @@ sub rec_stdin
 			} else {
 				beep();
 			}
-		} elsif ($r eq KEY_HOME) {
+		} elsif ($r eq KEY_HOME || $r eq "\001") {
 			$pos = 0;
 		} elsif ($r eq KEY_BACKSPACE || $r eq "\010") {
 			if ($pos > 0) {