API workers using Gearman::Driver

[cloudstore.git] / lib / WarnColor.pm

diff --git a/lib/WarnColor.pm b/lib/WarnColor.pm
index 4f1b7b8..2522d74 100644 (file)
--- a/lib/WarnColor.pm
+++ b/lib/WarnColor.pm
@@ -27,7 +27,7 @@ sub BEGIN {
                $log .= $ENV{NAME}  ? $ENV{NAME} : $1 if $0 =~ m{([^/]+)$};
 
                my $line = join(' ', @_);
-               if ( $line =~ s{^(?:\e\[\d+m)+(\d\d\d\d)\W(\d\d)\W(\d\d) (\d\d:\d\d:\d\d)}{$1-$2-$3 $4} ) {
+               if ( $line =~ s{^(?:\e\[\d+m)*(\d\d\d\d)\W(\d\d)\W(\d\d) (\d\d:\d\d:\d\d)}{$1-$2-$3 $4} ) {
                        # have timestamp allready
                } else {
                        my $time = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $yyyy,$m,$d, $hh,$mm,$ss);