csv2human

diff --git a/etc/profile.d/functions b/etc/profile.d/functions
index 4e6945bb21c8a7f74f654f5f463a1261f559cbbf..6e316125803f577e71ce709c070d7a5a3ff0ccbd 100644 (file)
--- a/etc/profile.d/functions
+++ b/etc/profile.d/functions
@@ -467,7 +467,8 @@ csv2human() {
   binmode( STDOUT, "utf8:" );
 };
 for ($i=0;$i<@F;$i++) {
- chomp($F[$i]);
+  chomp($F[$i]);
+  $F[$i] =~ s/^\r//;
   $F[$i] = Encode::decode_utf8($F[$i]);
   $len[$i] = $l if ( $l = length($F[$i])) >= $len[$i];
 }