diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-07-24 12:36:52 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-07-24 12:36:52 +0000 |
| commit | 4cf5682cf59a7547e263b74b744515597aec873e (patch) | |
| tree | 09e915d7844aa63aa26b7814ec0fe8c2d834e14d /URPM/Build.pm | |
| parent | 9a3a55e34e01d4dba1eb5a09ba25eb3c59101173 (diff) | |
| download | perl-URPM-4cf5682cf59a7547e263b74b744515597aec873e.tar perl-URPM-4cf5682cf59a7547e263b74b744515597aec873e.tar.gz perl-URPM-4cf5682cf59a7547e263b74b744515597aec873e.tar.bz2 perl-URPM-4cf5682cf59a7547e263b74b744515597aec873e.tar.xz perl-URPM-4cf5682cf59a7547e263b74b744515597aec873e.zip | |
0.50-4mdk
Diffstat (limited to 'URPM/Build.pm')
| -rw-r--r-- | URPM/Build.pm | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/URPM/Build.pm b/URPM/Build.pm index e3029f7..2c1a592 100644 --- a/URPM/Build.pm +++ b/URPM/Build.pm @@ -75,19 +75,13 @@ sub parse_rpms_build_headers { @headers; } -#- check if rereading of hdlist is neccessary. +#- allow rereading of hdlist and clean. sub unresolved_provides_clean { my ($urpm) = @_; - my @unresolved = grep { ! defined $urpm->{provides}{$_} } keys %{$urpm->{provides} || {}}; + my @potentially_unresolved = keys %{$urpm->{provides} || {}}; - #- names can be safely removed in any cases. - delete $urpm->{names}; - - #- remove @{$urpm}{qw(depslist provides)} = ([], {}); @{$urpm->{provides}}{@unresolved} = (); - - @unresolved; } #- read a list of headers (typically when building an hdlist when provides have |