From 8913b0e2917720ea91db87c0eb5770039b6e1f06 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 8 Sep 2011 22:25:32 +0000 Subject: [PATCH 1/1] use blue and yellow more --- lib/WarnColor.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/WarnColor.pm b/lib/WarnColor.pm index d8b6eb9..5cf738d 100644 --- a/lib/WarnColor.pm +++ b/lib/WarnColor.pm @@ -20,8 +20,8 @@ sub BEGIN { $msg =~ s{^(.+)( at .+)}{\e[31m$1\e[0m$2} if $msg !~ m{^#}; } $msg =~ s{\[(\d+)\]}{ '[' . port2color($1) . ']' }eg; - $msg =~ s{\|}{\e[34m\|\e[0m}g; # blue bars - $msg =~ s{"}{\e[33m"\e[0m}g; # dark quotes + $msg =~ s{(\||=>)}{\e[34m$1\e[0m}g; # blue + $msg =~ s{(["\{\}\#])}{\e[33m$1\e[0m}g; # yellow print STDERR $msg unless $msg =~ m{^#} && ! $ENV{DEBUG}; return 1; }; -- 2.20.1