d6
/
pmacs3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

iperl prompt bs 

--HG--
branch : pmacs2
This commit is contained in:
moculus 2008-05-20 12:55:13 +00:00
parent a8b290434f
commit 2712aa11e1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/iperl
View File

@ -241,8 +241,8 @@ EOT
# the big one!
sub main {
# ugh stupid fucking Term::ReadLine's automatic escapes
#my ($prompt1, $prompt2) = (">>>", '..>');
my ($prompt1, $prompt2) = ("\001\033[24m\002>>>", "\001\033[24m\002..>");
my ($prompt1, $prompt2) = (">>>", '..>');
#my ($prompt1, $prompt2) = ("\001\033[24m\002>>>", "\001\033[24m\002..>");
# process the arguments provided; save original @ARGV for use later
my $quiet;