diff options
-rw-r--r-- | bin/te | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -22,7 +22,10 @@ sub command_as_string { my $command = ''; COMMAND: while (1) { print '*'; - KEY: while (my $c = ReadKey 0) { + KEY: while (1) { + my $c = ReadKey 0; + last KEY unless defined $c; + my $pc = substr($command, -1); if ($c eq "\e") { print '$'; |