30 lines
900 B
Diff
30 lines
900 B
Diff
|
From 46f987c48296ebd35c153c04488fcf7ee97a41bd Mon Sep 17 00:00:00 2001
|
||
|
|
From: Pino Toscano <ptoscano@redhat.com>
|
||
|
|
Date: Tue, 7 Oct 2014 11:09:10 +0200
|
||
|
|
Subject: [PATCH] rpm: fix caching of provides
|
||
|
|
|
||
|
|
Now each provide is resolved really once.
|
||
|
|
---
|
||
|
|
src/rpm.ml | 5 ++++-
|
||
|
|
1 file changed, 4 insertions(+), 1 deletion(-)
|
||
|
|
|
||
|
|
diff --git a/src/rpm.ml b/src/rpm.ml
|
||
|
|
index b88ac73..71cdab2 100644
|
||
|
|
--- a/src/rpm.ml
|
||
|
|
+++ b/src/rpm.ml
|
||
|
|
@@ -211,7 +211,10 @@ let rpm_get_all_requires pkgs =
|
||
|
|
try
|
||
|
|
let provides =
|
||
|
|
try Hashtbl.find rpm_providers x
|
||
|
|
- with Not_found -> rpm_pkg_whatprovides (get_rpm ()) x in
|
||
|
|
+ with Not_found ->
|
||
|
|
+ let p = rpm_pkg_whatprovides (get_rpm ()) x in
|
||
|
|
+ Hashtbl.add rpm_providers x p;
|
||
|
|
+ p in
|
||
|
|
Array.fold_left (
|
||
|
|
fun newset p ->
|
||
|
|
match rpm_package_of_string p with
|
||
|
|
--
|
||
|
|
1.9.3
|
||
|
|
|