diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-07-19 08:50:44 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-07-19 08:50:44 +0000 |
| commit | 9cdf4f302bcee100b4cd8492b0af1765772cc44b (patch) | |
| tree | e6c6d58da6cf4a7a4d14ab8ab1243e94a61a5cd1 /URPM.pm | |
| parent | b1639a0fc334d819296162dcd642fb5c0a25d899 (diff) | |
| download | perl-URPM-9cdf4f302bcee100b4cd8492b0af1765772cc44b.tar perl-URPM-9cdf4f302bcee100b4cd8492b0af1765772cc44b.tar.gz perl-URPM-9cdf4f302bcee100b4cd8492b0af1765772cc44b.tar.bz2 perl-URPM-9cdf4f302bcee100b4cd8492b0af1765772cc44b.tar.xz perl-URPM-9cdf4f302bcee100b4cd8492b0af1765772cc44b.zip | |
0.11-1mdk
Diffstat (limited to 'URPM.pm')
| -rw-r--r-- | URPM.pm | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -6,7 +6,7 @@ use vars qw($VERSION @ISA); require DynaLoader; @ISA = qw(DynaLoader); -$VERSION = '0.10'; +$VERSION = '0.11'; bootstrap URPM $VERSION; @@ -73,6 +73,13 @@ sub traverse_tag { ++$count; } } + } elsif ($tag eq 'whatconflicts') { + foreach (@{$urpm->{depslist} || []}) { + if (grep { /^([^ \[]*)/ && exists $names{$1} } $_->conflicts) { + $callback and $callback->($_); + ++$count; + } + } } elsif ($tag eq 'group') { foreach (@{$urpm->{depslist} || []}) { if (exists $names{$_->group}) { |