From 4b477bc4eef5b42341ab27b4566f7b3157fe53e2 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 18 Oct 2004 08:34:29 +0000 Subject: A few perl_checker fixes --- URPM/Resolve.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'URPM') diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index d6d6011..0e4b542 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -504,7 +504,7 @@ sub resolve_requested { if ($pkg->arch ne 'src' && !$pkg->flag_disable_obsolete) { my (%diff_provides); - foreach ($pkg->name." < ".$pkg->epoch.":".$pkg->version."-".$pkg->release, $pkg->obsoletes) { + foreach ($pkg->name . " < " . $pkg->epoch . ":" . $pkg->version . "-" . $pkg->release, $pkg->obsoletes) { #$pkg->name eq $_ and print STDERR "avoiding same name for package ".$pkg->fullname."\n", next; #- this package obsoletes itself ?? Ignore. if (my ($n, $o, $v) = /^([^\s\[]*)(?:\[\*\])?\s*\[?([^\s\]]*)\s*([^\s\]]*)/) { #- populate avoided entries according to what is selected. @@ -691,7 +691,7 @@ sub resolve_requested { my $packages = $urpm->find_candidate_packages($p->name, avoided => $state->{rejected}); my $best = join '|', map { $_->id } grep { ($_->name eq $p->name || - $_->obsoletes_overlap($p->name." == ".$p->epoch.":".$p->version."-".$p->release)) + $_->obsoletes_overlap($p->name . " == " . $p->epoch . ":" . $p->version . "-" . $p->release)) && $_->fullname ne $p->fullname && $urpm->unsatisfied_requires($db, $state, $_, name => $n) == 0 } map { @{$_ || []} } values %$packages; @@ -1053,7 +1053,7 @@ sub request_packages_to_upgrade { } #- examine all packages which may be conflicting, it a package conflicts, it should not be requested. - my @names = map { $_->name." == ".$_->epoch.":".$_->version."-".$_->release } values %names; + my @names = map { $_->name . " == " . $_->epoch . ":" . $_->version . "-" . $_->release } values %names; my @pkgs = values %names; foreach my $pkg (@pkgs) { exists $requested{$pkg->name} or next; -- cgit v1.2.1