From b442d9fc968a3bd52e64d607dcc1f1ca829aeebb Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 5 Jan 2000 19:29:33 +0000
Subject: *** empty log message ***

---
 perl-install/pkgs.pm | 63 +++++++++++++++++++++++-----------------------------
 1 file changed, 28 insertions(+), 35 deletions(-)

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index e288471c5..2679f80ef 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -41,7 +41,7 @@ my %by_lang = (
   'zh_TW.Big5' => [ 'rxvt-CLE', 'fonts-ttf-big5' ],
 );
 
-my @preferred = qw(perl-GTK postfix);
+my @preferred = qw(perl-GTK postfix ghostscript-X);
 
 my $A = 20471;
 my $B = 16258;
@@ -405,29 +405,28 @@ sub selectPackagesToUpgrade($$$;$$) {
     c::rpmdbTraverse($db, sub {
 			 my ($header) = @_;
 			 my $p = $packages->{c::headerGetEntry($header, 'name')};
-#			 my $otherPackage = (c::headerGetEntry($header, 'release') !~ /mdk\w*$/ &&
-#					     (c::headerGetEntry($header, 'name'). '-' .
-#					      c::headerGetEntry($header, 'version'). '-' .
-#					      c::headerGetEntry($header, 'release')));
-			 my $otherPackage = (c::headerGetEntry($header, 'name'). '-' .
-					     c::headerGetEntry($header, 'version'). '-' .
-					     c::headerGetEntry($header, 'release'));
+			 my $otherPackage = (c::headerGetEntry($header, 'release') !~ /mdk\w*$/ &&
+					     (c::headerGetEntry($header, 'name'). '-' .
+					      c::headerGetEntry($header, 'version'). '-' .
+					      c::headerGetEntry($header, 'release')));
 			 if ($p) {
+			     eval { getHeader($p) }; $@ && log::l("cannot get the header for package $p->{name}");
 			     my $version_cmp = versionCompare(c::headerGetEntry($header, 'version'), $p->{version});
-			     if ($otherPackage !~ /mdk\w*$/ && $version_cmp <= 0) {
-				 $toRemove{$otherPackage} = 1;
-			     } else {
-				 eval { getHeader($p) }; $@ && log::l("cannot get the header for package $p->{name}");
-				 $p->{installed} = 1 if $p->{header} ?
-				   c::rpmVersionCompare($header, $p->{header}) >= 0 :
-				       ($version_cmp > 0 ||
-					$version_cmp == 0 &&
-					versionCompare(c::headerGetEntry($header, 'release'), $p->{release} >= 0));
+			     my $version_rel_cmp = $p->{header} ? c::rpmVersionCompare($header, $p->{header}) :
+			       ($version_cmp > 0 ||
+				$version_cmp == 0 &&
+				versionCompare(c::headerGetEntry($header, 'release'), $p->{release}));
+			     if ($version_rel_cmp >= 0) {
+				 if ($otherPackage && $version_cmp <= 0) {
+				     $toRemove{$otherPackage} = 1; #- force removing for theses other packages, select our.
+				 } else {
+				     $p->{installed} = 1;
+				 }
 			     }
 			 } else {
 			     my @files = c::headerGetEntry($header, 'filenames');
-			     map { $installedFilesForUpgrade{$_} = $otherPackage }
-			       grep { $_ !~ m@^/etc/rc.d/@ && ! -d "$prefix/$_" } @files;
+			     @installedFilesForUpgrade{grep { ($_ !~ m|^/etc/rc.d/| &&
+							       ! -d "$prefix/$_" && ! -l "$prefix/$_") } @files} = ();
 			 }
 		     });
 
@@ -454,23 +453,18 @@ sub selectPackagesToUpgrade($$$;$$) {
 	    #- all file for package marked for upgrade.
 	    c::rpmdbNameTraverse($db, $p->{name}, sub {
 				     my ($header) = @_;
-#				     my $otherPackage = (c::headerGetEntry($header, 'release') !~ /mdk\w*$/ &&
-#							 (c::headerGetEntry($header, 'name'). '-' .
-#							  c::headerGetEntry($header, 'version'). '-' .
-#							  c::headerGetEntry($header, 'release')));
-				     my $otherPackage = (c::headerGetEntry($header, 'name'). '-' .
-							 c::headerGetEntry($header, 'version'). '-' .
-							 c::headerGetEntry($header, 'release'));
+				     my $otherPackage = (c::headerGetEntry($header, 'release') !~ /mdk\w*$/ &&
+							 (c::headerGetEntry($header, 'name'). '-' .
+							  c::headerGetEntry($header, 'version'). '-' .
+							  c::headerGetEntry($header, 'release')));
 				     $cumulSize += c::headerGetEntry($header, 'size'); #- all these will be deleted on upgrade.
-				     $toRemove{$otherPackage} = 1;
 				     my @files = c::headerGetEntry($header, 'filenames');
-				     map { $installedFilesForUpgrade{$_} = $otherPackage }
-				       grep { $_ !~ m@^/etc/rc.d/@ && ! -d "$prefix/$_" } @files;
+				     @installedFilesForUpgrade{grep { ($_ !~ m|^/etc/rc.d/| &&
+								       ! -d "$prefix/$_" && ! -l "$prefix/$_") } @files} = ();
 				 });
 	    eval { getHeader($p) };
 	    my @availFiles = $p->{header} ? c::headerGetEntry($p->{header}, 'filenames') : ();
-	    map { $toRemove{delete $installedFilesForUpgrade{$_}} = 1 }
-	      grep { $_ !~ m@^/etc/rc.d/@ && ! -d "$prefix/$_" } @availFiles;
+	    map { delete $installedFilesForUpgrade{$_} } grep { $_ !~ m|^/etc/rc.d/| } @availFiles;
 
 	    #- keep in mind the cumul size of installed package since they will be deleted
 	    #- on upgrade.
@@ -486,8 +480,7 @@ sub selectPackagesToUpgrade($$$;$$) {
 	if ($p->{selected}) {
 	    eval { getHeader($p) };
 	    my @availFiles = $p->{header} ? c::headerGetEntry($p->{header}, 'filenames') : ();
-	    map { $toRemove{delete $installedFilesForUpgrade{$_}} = 1 }
-	      grep { $_ !~ m@^/etc/rc.d/@ && ! -d "$prefix/$_" } @availFiles;
+	    map { delete $installedFilesForUpgrade{$_} } grep { $_ !~ m|^/etc/rc.d/| } @availFiles;
 	}
     }
 
@@ -500,8 +493,8 @@ sub selectPackagesToUpgrade($$$;$$) {
 	    my @availFiles = $p->{header} ? c::headerGetEntry($p->{header}, 'filenames') : ();
 	    my $toSelect = 0;
 	    map { if (exists $installedFilesForUpgrade{$_}) {
-		$toSelect = $toRemove{delete $installedFilesForUpgrade{$_}} = 1; }
-	      } grep { $_ !~ m@^/etc/rc.d/@ && ! -d "$prefix/$_" } @availFiles;
+		$toSelect ||= ! -d "$prefix/$_" && ! -l "$prefix/$_"; delete $installedFilesForUpgrade{$_} }
+	      } grep { $_ !~ m@^/etc/rc.d/@ } @availFiles;
 	    pkgs::select($packages, $p) if ($toSelect);
 	}
     }
-- 
cgit v1.2.1