From 3c81d0100e5cb48b0435aa81104753e767a91d26 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Michael=20Schr=C3=B6der?= <mls@suse.de>
Date: Wed, 13 Jun 2007 16:12:53 +0000
Subject: [PATCH] - we need path requires for rpm ordering

---
 Build/Rpm.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/Build/Rpm.pm b/Build/Rpm.pm
index 1d6235c..fdec4ec 100644
--- a/Build/Rpm.pm
+++ b/Build/Rpm.pm
@@ -692,9 +692,15 @@ sub query {
   my $data = {
     name => $res{'NAME'}->[0],
     hdrmd5 => unpack('H32', $res{'SIGTAG_MD5'}->[0]),
-    provides => [ grep {!/^rpmlib\(/ && !/^\//} @{$res{'PROVIDENAME'} || []} ],
-    requires => [ grep {!/^rpmlib\(/ && !/^\//} @{$res{'REQUIRENAME'} || []} ],
   };
+  # XXX hack, make this another option!
+  if ($withfilelist) {
+    $data->{'provides'} = [ @{$res{'PROVIDENAME'} || []} ];
+    $data->{'requires'} = [ @{$res{'REQUIRENAME'} || []} ];
+  } else {
+    $data->{'provides'} = [ grep {!/^rpmlib\(/ && !/^\//} @{$res{'PROVIDENAME'} || []} ];
+    $data->{'requires'} = [ grep {!/^rpmlib\(/ && !/^\//} @{$res{'REQUIRENAME'} || []} ];
+  }
   $data->{'source'} = $src if $src ne '';
   if ($withevra) {
     my $arch = $res{'ARCH'}->[0];
-- 
2.7.4