--: Added color for socket.

Still need to do LS_COLORS... But this'll do for now.

Author: eth-p

install

@@ -128,7 +128,8 @@ depcheck_perl() {
 	# Attempt to install the module.
 	printf "${A_ALT_ENTER}"
 	start "Installing module: ${module}"
-	PERL_MM_USE_DEFAULT=1 cpan install "$module";
+	[ -d "${HERE}/.install-logs" ] || mkdir -p "${HERE}/.install-logs"
+	PERL_MM_USE_DEFAULT=1 cpan install -T "$module" | tee "${HERE}/.install-logs/${module}";
 
 	if [ "$?" -ne 0 ]; then
 		err "Install failed."

src/ls-git.pl

@@ -246,6 +246,7 @@ sub file_color {
     return "\x1B[34m" if ($info->{'kind'}->{'kind'} eq 'directory');
     return "\x1B[35m" if ($info->{'kind'}->{'kind'} eq 'symlink');
     return "\x1B[33m" if ($info->{'kind'}->{'kind'} eq 'pipe');
+    return "\x1B[32m" if ($info->{'kind'}->{'kind'} eq 'socket');
     return "\x1B[31m" if ($info->{'executable'});
     # TODO: More colors.
     return '';