diff options
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 12 |
1 files changed, 12 insertions, 0 deletions
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'); |