summaryrefslogtreecommitdiffstats
path: root/urpm.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-02-13 14:40:05 +0000
committerFrancois Pons <fpons@mandriva.com>2002-02-13 14:40:05 +0000
commit010c926f86ebe055dbd6878268c8d31373e3ce99 (patch)
treedebe57f0650a6bcd91b8a5cc052482d7209e67bc /urpm.pm
parentd3352fc2c759246a644bb24bae42d82789916c6d (diff)
downloadurpmi-010c926f86ebe055dbd6878268c8d31373e3ce99.tar
urpmi-010c926f86ebe055dbd6878268c8d31373e3ce99.tar.gz
urpmi-010c926f86ebe055dbd6878268c8d31373e3ce99.tar.bz2
urpmi-010c926f86ebe055dbd6878268c8d31373e3ce99.tar.xz
urpmi-010c926f86ebe055dbd6878268c8d31373e3ce99.zip
3.3-5mdk
Diffstat (limited to 'urpm.pm')
-rw-r--r--urpm.pm42
1 files changed, 25 insertions, 17 deletions
diff --git a/urpm.pm b/urpm.pm
index de252170..ded6dc22 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -2037,18 +2037,17 @@ sub select_packages_to_upgrade {
#- takes a code to call with the line read, this avoid allocating
#- memory for that.
my $ask_child = sub {
- my ($name, $tag, $code) = @_;
+ my ($pkg, $tag, $code) = @_;
$code or die "no callback code for parsehdlist output";
#- check if what is requested is not already available locally (because
#- the hdlist does not exists and the medium is marked as using a
#- synthesis file).
- my $p = $urpm->{params}{info}{$name} || $urpm->{params}{names}{$name};
- if ($pid == 1 || $p && @{$p->{$tag} || []}) {
- foreach (@{$p->{$tag} || []}) {
+ if ($pid == 1 || $pkg && @{$pkg->{$tag} || []}) {
+ foreach (@{$pkg->{$tag} || []}) {
$code->($_);
}
} else {
- print OUTPUT "$name:$tag\n";
+ print OUTPUT "$pkg->{name}-$pkg->{version}-$pkg->{release}.$pkg->{arch}:$tag\n";
local $_;
while (<INPUT>) {
@@ -2063,16 +2062,25 @@ sub select_packages_to_upgrade {
#- should we remove them ? this could be dangerous !
foreach my $pkg (values %{$urpm->{params}{info}}) {
defined $pkg->{id} && $pkg->{arch} ne 'src' or next;
- $ask_child->("$pkg->{name}-$pkg->{version}-$pkg->{release}.$pkg->{arch}", "obsoletes", sub {
+ $ask_child->($pkg, "obsoletes", sub {
#- take care of flags and version and release if present
- if ($_[0] =~ /^(\S*)\s*(\S*)\s*([^\s-]*)-?(\S*)/ &&
- rpmtools::db_traverse_tag($db, "name", [$1], [], undef) > 0) {
- (!$3 || eval(rpmtools::version_compare($pkg->{version}, $3) . $2 . 0)) &&
- (!$4 || rpmtools::version_compare($pkg->{version}, $3) != 0 ||
- eval(rpmtools::version_compare($pkg->{release}, $4) . $2 . 0)) or return;
- $urpm->{log}(_("selecting %s using obsoletes", "$pkg->{name}-$pkg->{version}-$pkg->{release}"));
- $obsoletedPackages{$1} = undef;
- $pkg->{selected} = 1;
+ local ($_) = @_;
+ if (my ($n,$o,$v,$r) = /^([^\s\[]*)(?:\[\*\])?(?:\s+|\[)?([^\s\]]*)\s*([^\s\-\]]*)-?([^\s\]]*)/) {
+ my $obsoleted = 0;
+ my $check_obsoletes = sub {
+ my ($p) = @_;
+ (!$v || eval(rpmtools::version_compare($p->{version}, $v) . $o . 0)) &&
+ (!$4 || rpmtools::version_compare($p->{version}, $v) != 0 ||
+ eval(rpmtools::version_compare($p->{release}, $r) . $o . 0)) or return;
+ ++$obsoleted;
+ };
+ rpmtools::db_traverse_tag($db, "name", [ $n ], [ qw(name version release) ], $check_obsoletes);
+ if ($obsoleted > 0) {
+ $urpm->{log}(_("selecting %s using obsoletes",
+ "$pkg->{name}-$pkg->{version}-$pkg->{release}"));
+ $obsoletedPackages{$n} = undef;
+ $pkg->{selected} = 1;
+ }
}
});
}
@@ -2145,7 +2153,7 @@ sub select_packages_to_upgrade {
@{$p->{files}}} = ();
});
- $ask_child->("$pkg->{name}-$pkg->{version}-$pkg->{release}.$pkg->{arch}", "files", sub {
+ $ask_child->($pkg, "files", sub {
delete $installedFilesForUpgrade{$_[0]};
});
}
@@ -2156,7 +2164,7 @@ sub select_packages_to_upgrade {
foreach my $pkg (values %{$urpm->{params}{info}}) {
defined $pkg->{id} && $pkg->{arch} ne 'src' or next;
if ($pkg->{selected}) {
- $ask_child->("$pkg->{name}-$pkg->{version}-$pkg->{release}.$pkg->{arch}", "files", sub {
+ $ask_child->($pkg, "files", sub {
delete $installedFilesForUpgrade{$_[0]};
});
}
@@ -2172,7 +2180,7 @@ sub select_packages_to_upgrade {
defined $pkg->{id} && $pkg->{arch} ne 'src' or next;
unless ($pkg->{selected}) {
my $toSelect = 0;
- $ask_child->("$pkg->{name}-$pkg->{version}-$pkg->{release}.$pkg->{arch}", "files", sub {
+ $ask_child->($pkg, "files", sub {
if ($_[0] !~ m|^/dev/| && $_[0] !~ m|^/etc/rc.d/| &&
$_ !~ m|\.la$| && exists $installedFilesForUpgrade{$_[0]}) {
++$toSelect if ! -d "$prefix/$_[0]" && ! -l "$prefix/$_[0]";