# HG changeset patch
# User igor
# Date 1205105407 -7200
# Node ID 9bb58a1eee2bebf80b861823e4ef4d35805c2a48
# Parent  f45ba4b5dc7f3e45def3807017cba2ca38760246
l3prompt minifix $_[0] -> $ARGV[0]

diff -r f45ba4b5dc7f -r 9bb58a1eee2b l3prompt
--- a/l3prompt	Sun Mar 09 23:04:58 2008 +0200
+++ b/l3prompt	Mon Mar 10 01:30:07 2008 +0200
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-my $string=$_[0];
+my $string=$ARGV[0];
 my $insert="\e[1K\e[10D";
 my $max=5;