--- /usr/bin/genlop.old	2005-07-26 18:45:32.000000000 +0200
+++ /usr/bin/genlop	2005-07-26 19:09:37.000000000 +0200
@@ -551,11 +551,10 @@
         exit;
     }
     @targets = ();
-    my $pid_file = "/tmp/sandboxpids.tmp";
-    open(pid_file, "< $pid_file")
+    my $pid_list = qx(ps --no-header -o pid -C sandbox | xargs echo -n);
+    length($pid_list)
       || die "!!! Error: no working merge found.\n";
-    while (<pid_file>) {
-        chop $_;
+    foreach $_ (split(/ /, $pid_list)) {
         open(CMDLINE, "/proc/$_/cmdline");
         while (<CMDLINE>) {
             if ($_ =~ m/^\[(.*?)\-[0-9].*?\]/g) {
@@ -564,7 +563,6 @@
         }
         push @targets, $current;
     }
-    close pid_file;
     foreach $ebuild_arg (@targets) {
 	$_ = "";
 	foreach $_ (@logfile_cache) {