diff options
| -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; |