From 3a2545452f8ddb6bfe8eee02c313769d38f74300 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 10 Jan 2000 15:44:20 +0000 Subject: *** empty log message *** --- perl-install/pkgs.pm | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 4285ec229..a905b9284 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -396,6 +396,12 @@ sub selectPackagesToUpgrade($$$;$$) { local $_; #- else perl complains on the map { ... } grep { ... } @...; my %installedFilesForUpgrade; #- help searching package to upgrade in regard to already installed files. + #- used for package that are not correctly updated. + my %upgradeNeedRemove = ( + 'compat-glibc' => 1, + 'compat-libs' => 1, + ); + #- help removing package which may have different release numbering my %toRemove; map { $toRemove{$_} = 1 } @{$toRemove || []}; @@ -423,6 +429,12 @@ sub selectPackagesToUpgrade($$$;$$) { } else { $p->{installed} = 1; } + } elsif ($upgradeNeedRemove{$p->{name}}) { + my $otherPackage = (c::headerGetEntry($header, 'name'). '-' . + c::headerGetEntry($header, 'version'). '-' . + c::headerGetEntry($header, 'release')); + log::l("removing $otherPackage since it will not upgrade correctly!"); + $toRemove{$otherPackage} = 1; #- force removing for theses other packages, select our. } } else { my @files = c::headerGetEntry($header, 'filenames'); -- cgit v1.2.1