leak --(cherry picked from commit dd1330c53beec9c5abb8b23375062e6acf214632)

[simgrid.git] / tools / MSG_visualization / colorize.pl

diff --git a/tools/MSG_visualization/colorize.pl b/tools/MSG_visualization/colorize.pl
index 2c7cc4e..c346409 100755 (executable)
--- a/tools/MSG_visualization/colorize.pl
+++ b/tools/MSG_visualization/colorize.pl
@@ -70,12 +70,12 @@ sub print_line {
     my($host,$procname,$pid,$date,$location,$xbt_channel,$message)=@_;
 
     print $col_norm;
-    printf "[% 10.3f]",$date;
+    printf "[% 10.6f]",$date;
 
     print pidcolor($pid);
 
     if(defined($location)) {
-       printf "[%10s:%-10s %s ]",$host,$procname,$location;
+       printf "[%10s:%-10s] %s ",$host,$procname,$location;
     } else {
        printf "[%10s:%-10s]",$host,$procname;
     }
@@ -88,7 +88,7 @@ while (<>) {
     $orgline = $thisline = $_;
 
     # Typical line  [Gatien:slave:(9) 11.243148] msg/gos.c:137: [msg_gos/DEBUG] Action terminated
-    if ($thisline =~ /^\[([^:]+):([^:]+):\((\d+)\) ([\d\.]*)\] ([^\[]*) \[([^\[]*)\] (.*)$/) {
+    if ($thisline =~ /^\[(.+):([^:]+):\((\d+)\) ([\d\.]*)\] ([^\[]*) \[([^\[]*)\] (.*)$/) {
        $host=$1;
        $procname=$2;
        $pid=$3;