|
Lines 551-561
Link Here
|
| 551 |
exit; |
551 |
exit; |
| 552 |
} |
552 |
} |
| 553 |
@targets = (); |
553 |
@targets = (); |
| 554 |
my $pid_file = "/tmp/sandboxpids.tmp"; |
554 |
my $pid_list = qx(ps --no-header -o pid -C sandbox | xargs echo -n); |
| 555 |
open(pid_file, "< $pid_file") |
555 |
length($pid_list) |
| 556 |
|| die "!!! Error: no working merge found.\n"; |
556 |
|| die "!!! Error: no working merge found.\n"; |
| 557 |
while (<pid_file>) { |
557 |
foreach $_ (split(/ /, $pid_list)) { |
| 558 |
chop $_; |
|
|
| 559 |
open(CMDLINE, "/proc/$_/cmdline"); |
558 |
open(CMDLINE, "/proc/$_/cmdline"); |
| 560 |
while (<CMDLINE>) { |
559 |
while (<CMDLINE>) { |
| 561 |
if ($_ =~ m/^\[(.*?)\-[0-9].*?\]/g) { |
560 |
if ($_ =~ m/^\[(.*?)\-[0-9].*?\]/g) { |
|
Lines 564-570
Link Here
|
| 564 |
} |
563 |
} |
| 565 |
push @targets, $current; |
564 |
push @targets, $current; |
| 566 |
} |
565 |
} |
| 567 |
close pid_file; |
|
|
| 568 |
foreach $ebuild_arg (@targets) { |
566 |
foreach $ebuild_arg (@targets) { |
| 569 |
$_ = ""; |
567 |
$_ = ""; |
| 570 |
foreach $_ (@logfile_cache) { |
568 |
foreach $_ (@logfile_cache) { |
