diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-11 17:12:00 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-11 17:12:00 +0000 |
commit | c780f934b46954ecd96fed78badfd893714895eb (patch) | |
tree | c8b5f78d41dd685be289e96a50b05086b335e1e2 | |
parent | bca7a6922647023ba0633371a990cf8e9bd9bd93 (diff) | |
download | drakx-backup-do-not-use-c780f934b46954ecd96fed78badfd893714895eb.tar drakx-backup-do-not-use-c780f934b46954ecd96fed78badfd893714895eb.tar.gz drakx-backup-do-not-use-c780f934b46954ecd96fed78badfd893714895eb.tar.bz2 drakx-backup-do-not-use-c780f934b46954ecd96fed78badfd893714895eb.tar.xz drakx-backup-do-not-use-c780f934b46954ecd96fed78badfd893714895eb.zip |
during install, between transactions, more verbose message when killing processes still alive
-rw-r--r-- | perl-install/pkgs.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 932256f19..7895fa4a0 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -1454,7 +1454,10 @@ sub install($$$;$$) { [ hashtree2list($$, \%ppids) ]) ]); if (@killpid) { - log::l("ERROR: DrakX should not have to clean the packages shit. Killing ". join(", ", @killpid)); + foreach (@killpid) { + my $s = "$_: " . join(' ', split("\0", cat_("/proc/$_/cmdline"))); + log::l("ERROR: DrakX should not have to clean the packages shit. Killing $s"); + } kill 15, @killpid; sleep 2; kill 9, @killpid; |