projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added a clrtoeol and a ^A
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index 02a2e476831ef0567d21dc7c384c8d27a52c84bb..429f5d36245be86a35880a477356a2c6f1ec6f19 100755
(executable)
--- 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);
shift @history if @history > $maxhist;
$histpos = @history;
$bot->move(0,0);
+ $bot->clrtoeol();
$bot->addstr(substr($inbuf, 0, COLS));
}
$bot->addstr(substr($inbuf, 0, COLS));
}
@@
-129,7
+130,7
@@
sub rec_stdin
} else {
beep();
}
} 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) {
$pos = 0;
} elsif ($r eq KEY_BACKSPACE || $r eq "\010") {
if ($pos > 0) {