From 0b5a39bc8fc10e5d006e4c201b67024b3843927c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 25 Aug 2005 14:22:52 +0000 Subject: don't kill "runaway" processes anymore, it should not be needed for ejecting cd (?) --- perl-install/pkgs.pm | 14 -------------- 1 file changed, 14 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 499d4bb17..99668319f 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -1164,20 +1164,6 @@ sub install { @probs and die "installation of rpms failed:\n ", join("\n ", @probs); } - #- now search for child process which may be locking the cdrom, making it unable to be ejected. - my @allpids = grep { /^\d+$/ } all("/proc"); - my @killpid = difference2(\@allpids, \@prev_pids); - - if (@killpid && $::isInstall && !$::local_install && !$::build_globetrotter) { - foreach (@killpid) { - my ($prog, @para) = split("\0", cat_("/proc/$_/cmdline") || readlink("/proc/$_/exe")); - log::l("ERROR: DrakX should not have to clean the packages shit. Killing $_: " . join(' ', $prog, @para) . ".") if $prog ne '/usr/lib/gconfd-2'; - } - kill 15, @killpid; - sleep 2; - kill 9, @killpid; - } - #- if we are using a retry mode, this means we have to split the transaction with only #- one package for each real transaction. if (!$retry_pkg) { -- cgit v1.2.1