hl flush stdout

diff --git a/etc/profile.d/functions b/etc/profile.d/functions
index 5c50ae37189ecd9d2086efdc31701aad18625c8a..c0346827b2b18a66869e3fc613ea29aa60298363 100755 (executable)
--- a/etc/profile.d/functions
+++ b/etc/profile.d/functions
@@ -337,7 +337,7 @@ json2perl() {
 
 hl(){ 
        #cat | grep --color=always -E "(^|($@))"
-       perl -MTerm::ANSIColor -pe '$e=qq@'$@'@;$e=~s,/,\\/,g; s/($e)/color("red").$1.color("reset")/ge'
+       perl -MTerm::ANSIColor -pe 'BEGIN{$|=1;}; $e=qq@'$@'@;$e=~s,/,\\/,g; s/($e)/color("red").$1.color("reset")/ge'
 }
 
 ls_tree() {