diff options
author | Francois Pons <fpons@mandriva.com> | 2001-03-23 14:14:20 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2001-03-23 14:14:20 +0000 |
commit | 5887e3f23d4888e71b9ed2dfdc37b6ecbbe204d9 (patch) | |
tree | 7d9a3b2d73ceeec667a8c3c5786bfd48834e136e /rpmtools.pm | |
parent | 2de23e133d43c1a0ac50b0ad54bc40c8d1529c98 (diff) | |
download | rpmtools-5887e3f23d4888e71b9ed2dfdc37b6ecbbe204d9.tar rpmtools-5887e3f23d4888e71b9ed2dfdc37b6ecbbe204d9.tar.gz rpmtools-5887e3f23d4888e71b9ed2dfdc37b6ecbbe204d9.tar.bz2 rpmtools-5887e3f23d4888e71b9ed2dfdc37b6ecbbe204d9.tar.xz rpmtools-5887e3f23d4888e71b9ed2dfdc37b6ecbbe204d9.zip |
*** empty log message ***
Diffstat (limited to 'rpmtools.pm')
-rw-r--r-- | rpmtools.pm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/rpmtools.pm b/rpmtools.pm index 691e868..5bcb427 100644 --- a/rpmtools.pm +++ b/rpmtools.pm @@ -451,15 +451,12 @@ sub get_unresolved_provides_files { #- this is necessary to try a second pass. sub keep_only_cleaned_provides_files { my ($params) = @_; + my @keeplist = map { /^\// } keys %{$params->{provides}}; - foreach (keys %{$params->{provides}}) { - delete $params->{provides}{$_}; - /^\// and $params->{provides}{$_} = undef; - } - - #- clean everything else at this point. + #- clean everything at this point, but keep file referenced. $params->{info} = {}; $params->{depslist} = []; + $params->{provides} = {}; @{$params->{provides}}{@keeplist} = (); } #- reset params to allow other entries. |