diff options
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. |