From a3ee0caf9a3c8e509b7487d3068c9c2a50f2d864 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 9 Oct 2003 22:33:35 +0000
Subject: only clean packages shit when isInstall

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index e98045b94..2f5b674a2 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -1082,7 +1082,7 @@ sub install($$$;$$) {
 						       difference2([ $$, hashtree2list(getppid(), \%ppids) ],
 								   [ hashtree2list($$, \%ppids) ]) ]);
 	
-		if (@killpid) {
+		if (@killpid && $::isInstall) {
 		    foreach (@killpid) {
 			my ($prog, @para) = split("\0", cat_("/proc/$_/cmdline"));
 			log::l("ERROR: DrakX should not have to clean the packages shit. Killing $_: " . join(' ', $prog, @para) . ".") if $prog ne '/usr/lib/gconfd-2';
-- 
cgit v1.2.1