diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-10-18 08:34:29 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-10-18 08:34:29 +0000 |
| commit | 4b477bc4eef5b42341ab27b4566f7b3157fe53e2 (patch) | |
| tree | 4d053cfebd41a2f6950bdca8af0de99f59048976 /URPM/Resolve.pm | |
| parent | 8f7537dbea75d19ad1e0d3d336ec8a6b33a956be (diff) | |
| download | perl-URPM-4b477bc4eef5b42341ab27b4566f7b3157fe53e2.tar perl-URPM-4b477bc4eef5b42341ab27b4566f7b3157fe53e2.tar.gz perl-URPM-4b477bc4eef5b42341ab27b4566f7b3157fe53e2.tar.bz2 perl-URPM-4b477bc4eef5b42341ab27b4566f7b3157fe53e2.tar.xz perl-URPM-4b477bc4eef5b42341ab27b4566f7b3157fe53e2.zip | |
A few perl_checker fixes
Diffstat (limited to 'URPM/Resolve.pm')
| -rw-r--r-- | URPM/Resolve.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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; |