Profiling fix
authorAndrzej Surdej <a.surdej@samsung.com>
Thu, 28 Feb 2013 15:37:44 +0000 (16:37 +0100)
committerGerrit Code Review <gerrit2@kim11>
Thu, 7 Mar 2013 11:48:41 +0000 (20:48 +0900)
[Issue#]  Bug  LINUXWRT-41
[Problem] Profiling scripts did not produce data.
[Cause] Not adjusted to latest changes.
[Solution] Some fixes done.
[Verification] To verify build wrt with profiling and run scripts.

Change-Id: Id650d7bd786df4ba7c4f213e8203b0b6e50d14bf

src/profiling/script/profiling-target-part.pl

index 84c5fb9..e20ece2 100755 (executable)
@@ -81,7 +81,7 @@ sub runWidget {
     chomp $line;
     if (my ($p) = $line =~ /^TEST-WIDGET-PID (\d+)/) {
         $pid = 0+$p;
-    } elsif ($line =~ /^launched$/) {
+    } elsif ($line =~ /launched$/) {
         print "launched detected $pid\n";
         kill 10, $pid;
         my $again = 1;
@@ -218,7 +218,7 @@ sub dropAndInstallAll {
         }
         my @out = `$WRT_CLIENT_QUERY`;
         for my $line (@out) {
-            if (my ($name, $trash, $tizenId) = $line =~ /^\s*\d+\s+(([^ ]| [^ ])+)\s+.*\s+([A-Za-z0-9]{10})$/) {
+            if (my ($name, $trash, $tizenId) = $line =~ /^\s*\d+\s+(([^ ]| [^ ])+)\s+.*\s+([A-Za-z0-9]{10}\.[^\s]+)\s*$/) {
                 print "    found $name (tizenId $tizenId)\n";
                 $widgetMap{$name} = $tizenId;
             }