diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-12-17 13:57:31 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-12-17 13:57:31 +0000 |
| commit | 6d2c5e8b142344fb51ab4d7adc8412deceaeab33 (patch) | |
| tree | 8b7e14efbc797f29caace8a088ec3e31b109600e | |
| parent | 3b15f4893480acf473e276c571a1eda577621c72 (diff) | |
| download | perl-URPM-6d2c5e8b142344fb51ab4d7adc8412deceaeab33.tar perl-URPM-6d2c5e8b142344fb51ab4d7adc8412deceaeab33.tar.gz perl-URPM-6d2c5e8b142344fb51ab4d7adc8412deceaeab33.tar.bz2 perl-URPM-6d2c5e8b142344fb51ab4d7adc8412deceaeab33.tar.xz perl-URPM-6d2c5e8b142344fb51ab4d7adc8412deceaeab33.zip | |
added very faster code, 3 times faster on traverse_tag with --env.
| -rw-r--r-- | URPM.pm | 4 | ||||
| -rw-r--r-- | perl-URPM.spec | 4 |
2 files changed, 5 insertions, 3 deletions
@@ -100,14 +100,14 @@ sub traverse_tag { @names{@$names} = (); if ($tag eq 'whatrequires') { foreach (@{$urpm->{depslist} || []}) { - if (grep { /^([^ \[]*)/ && exists $names{$1} } $_->requires) { + if (grep { exists $names{$_} } $_->requires_nosense) { $callback and $callback->($_); ++$count; } } } elsif ($tag eq 'whatconflicts') { foreach (@{$urpm->{depslist} || []}) { - if (grep { /^([^ \[]*)/ && exists $names{$1} } $_->conflicts) { + if (grep { exists $names{$_} } $_->conflicts_nosense) { $callback and $callback->($_); ++$count; } diff --git a/perl-URPM.spec b/perl-URPM.spec index 7b2ecc2..a3f9b76 100644 --- a/perl-URPM.spec +++ b/perl-URPM.spec @@ -50,7 +50,9 @@ rm -rf $RPM_BUILD_ROOT %changelog * Tue Dec 17 2002 François Pons <fpons@mandrakesoft.com> 0.81-1mdk -- little improve on traverse_tag with tag name when env. +- little improve on traverse_tag with tag name whit --env. +- big improve on traverse_tag with tag whatrequires and + whatconflicts with --env. - fixed dependencies resolution when various different version of a package are available. |