use blue and yellow more
authorDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 8 Sep 2011 22:25:32 +0000 (22:25 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 8 Sep 2011 22:25:32 +0000 (22:25 +0000)
lib/WarnColor.pm

index d8b6eb9..5cf738d 100644 (file)
@@ -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;
        };