Fixing profiling script

[Issue#] N/A
[Bug] The script did not recognize bundle logs.
[Problem] N/A
[Cause] Incorrect regex
[Solution] Regex fixed

[Verification] Run profiling and verify that bundle profiling points are shown correctly.

Change-Id: I54960d16fc7bf21100c87999e167d7f0a3c34e1f

diff --git a/src/profiling/script/profiling-target-part.pl b/src/profiling/script/profiling-target-part.pl
index 6fc0860..4a1d060 100755 (executable)
--- a/src/profiling/script/profiling-target-part.pl
+++ b/src/profiling/script/profiling-target-part.pl
@@ -80,7 +80,7 @@ sub runWidget {
     if (my ($p) = $line =~ /^TEST-WIDGET-PID (\d+)/) {
         $pid = 0+$p;
     } elsif ($line =~ /^launched$/) {
     if (my ($p) = $line =~ /^TEST-WIDGET-PID (\d+)/) {
         $pid = 0+$p;
     } elsif ($line =~ /^launched$/) {

-        print "launched detected\n";
+        print "launched detected $pid\n";

         kill 10, $pid;
         my $again = 1;
         while ($again) {
         kill 10, $pid;
         my $again = 1;
         while ($again) {


@@ -91,7 +91,7 @@ sub runWidget {
         }
         kill 9, $pid;
         print "killed\n";
         }
         kill 9, $pid;
         print "killed\n";

-    } elsif ($line =~ /\[([0-9]*):([0-9]*):([0-9]*).([0-9]*)\][^)]*\(\): *([A-Za-z]*) *profiling##(start|stop)/) { #additionally take point from debug
+    } elsif ($line =~ /\[([0-9]*):([0-9]*):([0-9]*).([0-9]*)\][^)]*\): *([A-Za-z0-9 ]+) *profiling##(start|stop)/) { #additionally take point from debug

         my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
         my $name = $5;
         $hour = $1;
         my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
         my $name = $5;
         $hour = $1;

diff --git a/src/profiling/script/utils/analyse.pl b/src/profiling/script/utils/analyse.pl
index 96dd115..2ef0dc4 100755 (executable)
--- a/src/profiling/script/utils/analyse.pl
+++ b/src/profiling/script/utils/analyse.pl
@@ -76,7 +76,7 @@ foreach my $packet (@packets)
     {
         if (exists($tmps{$name}))
         {
     {
         if (exists($tmps{$name}))
         {

-            print "***** Doubled start point found *****\n";
+            print "***** Doubled start point found $name *****\n";

             print "[$name]\n";
             exit();
         }
             print "[$name]\n";
             exit();
         }