From 1aa830a04246a89a305be3ca3b8b2615c1d88065 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 6 Jan 2000 11:23:39 +0000 Subject: *** empty log message *** --- perl-install/install_any.pm | 12 +++++++----- perl-install/install_steps.pm | 2 +- perl-install/pkgs.pm | 10 +++++----- 3 files changed, 13 insertions(+), 11 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 6403ebf7a..ccc8343f1 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -663,22 +663,24 @@ sub kdeicons_postinstall($) { sub move_desktop_file($) { my ($prefix) = @_; - my @toMove = qw(doc.kdelnk news.kdelnk updates.kdelnk home.kdelnk printer.kdelnk floppy.kdelnk cdrom.kdelnk); + my @toMove = qw(doc.kdelnk news.kdelnk updates.kdelnk home.kdelnk printer.kdelnk floppy.kdelnk cdrom.kdelnk FLOPPY.kdelnk CDROM.kdelnk); foreach (list_skels()) { my $dir = "$prefix$_"; if (-d "$dir/Desktop") { - my @toSubst = glob_("$dir/Desktop/.*\.rpmorig"); + my @toSubst = glob_("$dir/Desktop/*rpmorig"); push @toSubst, "$dir/Desktop/$_" foreach @toMove; #- remove any existing save in Trash of each user and #- move appropriate file there after an upgrade. foreach (@toSubst) { - my $basename = basename($_); + if (-e $_) { + my $basename = basename($_); - unlink "$dir/Desktop/Trash/$basename"; - rename $_, "$dir/Desktop/Trash/$basename"; + unlink "$dir/Desktop/Trash/$basename"; + rename $_, "$dir/Desktop/Trash/$basename"; + } } } } diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index b7d31f6a4..f628ff7fa 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -283,7 +283,7 @@ GridHeight=70 #- move some file after an upgrade that may be seriously annoying. if ($o->{isUpgrade}) { - log::l("moving previous desktop files that have been updated to \$HOME/tmp of each user"); + log::l("moving previous desktop files that have been updated to Trash of each user"); install_any::move_desktop_file($o->{prefix}); } } diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 2679f80ef..0cbe641bd 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -412,11 +412,11 @@ sub selectPackagesToUpgrade($$$;$$) { 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}); - my $version_rel_cmp = $p->{header} ? c::rpmVersionCompare($header, $p->{header}) : + my $version_rel_test = $p->{header} ? c::rpmVersionCompare($header, $p->{header}) >= 0 : ($version_cmp > 0 || $version_cmp == 0 && - versionCompare(c::headerGetEntry($header, 'release'), $p->{release})); - if ($version_rel_cmp >= 0) { + versionCompare(c::headerGetEntry($header, 'release'), $p->{release}) >= 0); + if ($version_rel_test) { if ($otherPackage && $version_cmp <= 0) { $toRemove{$otherPackage} = 1; #- force removing for theses other packages, select our. } else { @@ -600,7 +600,7 @@ sub install($$$) { }; c::rpmtransSetScriptFd($trans, fileno LOG); - eval { fs::mount("/proc", "$prefix/proc", "proc", 0) }; + eval { fs::mount("/proc", "$prefix/proc", "proc", 0) } unless -e "$prefix/proc/cpuinfo"; my $callbackOpen = sub { my $f = (my $p = $packages{$_[0]})->{file}; @@ -651,7 +651,7 @@ sub remove($$) { c::rpmtransRemovePackages($db, $trans, $p) if $p !~ /kernel/; } - eval { fs::mount("/proc", "$prefix/proc", "proc", 0) }; + eval { fs::mount("/proc", "$prefix/proc", "proc", 0) } unless -e "$prefix/proc/cpuinfo"; my $callbackOpen = sub { log::l("trying to open file from $_[0] which should not happen"); }; my $callbackClose = sub { log::l("trying to close file from $_[0] which should not happen"); }; -- cgit v1.2.1