1.1 --- a/l3prompt Sun Mar 09 02:38:56 2008 +0200 1.2 +++ b/l3prompt Thu Mar 13 12:22:31 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