Исправлено несколько багов:
* выполняется корректная привязка diff'ов
* правильно запоминается raw_start и проч raw_*
* временно отключен вывод признака нажатия ctrl-c (он ставился неверно)
* в приглашение добавлен случайный nonce (для правильной отработки tab)

     1.1 --- a/l3prompt	Sun Mar 09 02:38:56 2008 +0200
     1.2 +++ b/l3prompt	Thu Mar 13 12:19:42 2008 +0200
     1.3 @@ -1,6 +1,6 @@
     1.4  #!/usr/bin/perl
     1.5  
     1.6 -my $string=$_[0];
     1.7 +my $string=$ARGV[0];
     1.8  my $insert="\e[1K\e[10D";
     1.9  my $max=5;
    1.10