* update alioth hostkey

[home-base.git] / .bashrc

diff --git a/.bashrc b/.bashrc
index dac14a8a6de25c0e89c46c7bd3431842dd669b1f..99a9e9713b9899ddd0d7b39e896662a02ca99b15 100644 (file)
--- a/.bashrc
+++ b/.bashrc
@@ -20,6 +20,10 @@ if [ "$PS1" ]; then
     fi;
     # bts debian options
 
+    if [ -e bin/faf ]; then
+       complete -F _command faf
+    fi;
+
     export DEBEMAIL="don@debian.org"
 
     # enable color support of ls and also add handy aliases
@@ -45,9 +49,9 @@ if [ "$PS1" ]; then
     if [ -n "$SSH_CONNECTION" -o -n "$SSH_CLIENT" ]; then
        # figure out what color to use
        COLOR=$(hostname|md5sum|perl -ne 'if (/^([a-f\d]{8})/) {
-              my $num = unpack(q(L),pack(q(h*),$1));
+              my $num = unpack(q(L),pack(q(H*),$1));
               my @col = map {(qq(0;${_}m),qq(1;${_}m))} 31..37;
-              my $col = $col[$num%$#col];
+              my $col = $col[$num % @col];
               if ($col eq q(0;36m)) {
                  $col = q(1;30m);
               }