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;
}
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;
}