From 5887e3f23d4888e71b9ed2dfdc37b6ecbbe204d9 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 23 Mar 2001 14:14:20 +0000
Subject: *** empty log message ***

---
 rpmtools.pm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'rpmtools.pm')

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.
-- 
cgit v1.2.1