diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-11-21 02:25:10 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-11-21 02:25:10 +0000 |
| commit | e4e8ea090c73cd6826d125d26fdc1e2463938048 (patch) | |
| tree | b0cb31fba99d97d596f865044b2bcb67443f9bb8 /URPM | |
| parent | 28b8022ccd4dbe629ad770e06ea4116ffd30258f (diff) | |
| download | perl-URPM-e4e8ea090c73cd6826d125d26fdc1e2463938048.tar perl-URPM-e4e8ea090c73cd6826d125d26fdc1e2463938048.tar.gz perl-URPM-e4e8ea090c73cd6826d125d26fdc1e2463938048.tar.bz2 perl-URPM-e4e8ea090c73cd6826d125d26fdc1e2463938048.tar.xz perl-URPM-e4e8ea090c73cd6826d125d26fdc1e2463938048.zip | |
workaround a segfault (mga#8158)
calling ->provides or ->requires in traverse_tag_find() results in an
invalid read if provides/requires list is big (or if called several
times)
basically reverting commit r6476 on 2012-11-16
("(unsatisfied_requires) (slightly) optimize")
Diffstat (limited to 'URPM')
| -rw-r--r-- | URPM/Resolve.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm index a906ea5..6ac7ad6 100644 --- a/URPM/Resolve.pm +++ b/URPM/Resolve.pm @@ -491,14 +491,14 @@ sub unsatisfied_requires { #- check on installed system if a package which is not obsoleted is satisfying the require. my $satisfied = 0; if ($n =~ m!^/!) { - $db->traverse_tag_find('path', $n, sub { + $db->traverse_tag('path', [ $n ], sub { my ($p) = @_; exists $state->{rejected}{$p->fullname} and return; $state->{cached_installed}{$n}{$p->fullname} = undef; ++$satisfied; }); } else { - $db->traverse_tag_find('whatprovides', $n, sub { + $db->traverse_tag('whatprovides', [ $n ], sub { my ($p) = @_; exists $state->{rejected}{$p->fullname} and return; foreach ($p->provides) { |