summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-25 14:22:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-25 14:22:52 +0000
commit0b5a39bc8fc10e5d006e4c201b67024b3843927c (patch)
treef71366116fe1177c360e2927bb6fa3415ce9bb06 /perl-install/pkgs.pm
parent0b4b6af448cf3ba1ceeaf7e1b3b0335bd419ea63 (diff)
downloaddrakx-0b5a39bc8fc10e5d006e4c201b67024b3843927c.tar
drakx-0b5a39bc8fc10e5d006e4c201b67024b3843927c.tar.gz
drakx-0b5a39bc8fc10e5d006e4c201b67024b3843927c.tar.bz2
drakx-0b5a39bc8fc10e5d006e4c201b67024b3843927c.tar.xz
drakx-0b5a39bc8fc10e5d006e4c201b67024b3843927c.zip
don't kill "runaway" processes anymore, it should not be needed for ejecting cd (?)
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm14
1 files changed, 0 insertions, 14 deletions
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) {