summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-10-09 22:33:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-10-09 22:33:35 +0000
commita3ee0caf9a3c8e509b7487d3068c9c2a50f2d864 (patch)
tree9a3390304e6788ed784087371889ab74024a4df7 /perl-install/pkgs.pm
parentf4e8b70aa49290da942c1fd44fd5fb949f445f51 (diff)
downloaddrakx-backup-do-not-use-a3ee0caf9a3c8e509b7487d3068c9c2a50f2d864.tar
drakx-backup-do-not-use-a3ee0caf9a3c8e509b7487d3068c9c2a50f2d864.tar.gz
drakx-backup-do-not-use-a3ee0caf9a3c8e509b7487d3068c9c2a50f2d864.tar.bz2
drakx-backup-do-not-use-a3ee0caf9a3c8e509b7487d3068c9c2a50f2d864.tar.xz
drakx-backup-do-not-use-a3ee0caf9a3c8e509b7487d3068c9c2a50f2d864.zip
only clean packages shit when isInstall
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm2
1 files changed, 1 insertions, 1 deletions
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';