Craig S. Cottingham wrote: > > export PROMPT_COMMAND="perl -e > > '@d=split/\//,qx(pwd);@d=(q(...),@d[\$#d-1..\$#d])if(@d>3);chomp@d;print > > qq(\033]0;).join(q(/),@d).qq(\007)'" Is it actually necessary to run `pwd` under bash? Doesn't it set the $PWD envar? If so, that saves you the chomp. -- John Porter
