summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm26
1 files changed, 2 insertions, 24 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 790063ced..0d93e3601 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -1477,30 +1477,8 @@ sub install($$$;$$) {
close OUTPUT;
#- now search for child process which may be locking the cdrom, making it unable to be ejected.
- my (@killpid, %tree, $pid);
- local (*DIR, *F, $_);
- opendir DIR, "/proc";
- while ($pid = readdir DIR) {
- $pid =~ /^\d+$/ or next;
- open F, "/proc/$pid/status";
- while (<F>) {
- /^Pid:\s+(\d+)/ and $pid == $1 || die "incorrect pid reported for $pid (found $1)";
- if (/^PPid:\s+(\d+)/) {
- $tree{$pid} and die "PPID already found for $pid, previously $tree{$pid}, now $1";
- $tree{$pid} = $1;
- }
- }
- close F;
- }
- closedir DIR;
- foreach (keys %tree) {
- #- remove child of this process (which will terminate).
- $pid = $_; while ($pid = $tree{$pid}) { $pid == $$ and push @killpid, $_ }
- #- remove child of 1 direct that have a pid greater than current one.
- $_ > $$ && $tree{$_} == 1 and push @killpid, $_;
- }
- if (@killpid) {
- log::l("killing process ". join(", ", @killpid));
+ if (my @killpid = grep { $_ > $$ } all("/proc")) {
+ log::l("ERROR: DrakX should not have to clean the packages shit. Killing ". join(", ", @killpid));
kill 15, @killpid;
sleep 2;
kill 9, @killpid;