lilalo: 658b4ea105c1 l3prompt

lilalo

PS1 bug fixed

line source

1 #!/usr/bin/perl

3 my $string=$_[0];

4 my $insert="\e[1K\e[10D";

5 my $max=5;

7 while (length($string) > $max) {

8 $res .= substr($string, 0, $max).$insert;

9 $string = substr($string, $max);

11 $res .= $string.$insert;

12 print "$res";