From c780f934b46954ecd96fed78badfd893714895eb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 11 Jul 2002 17:12:00 +0000
Subject: during install, between transactions, more verbose message when
 killing processes still alive

---
 perl-install/pkgs.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1