From b29d8d5d44b9fc324876a477738cfffd7639ae30 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Adrian=20Schr=C3=B6ter?= <adrian@suse.de>
Date: Tue, 12 Aug 2008 15:46:49 +0000
Subject: [PATCH] add support for Requires(pre) or (post) semantic

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

diff --git a/Build/Rpm.pm b/Build/Rpm.pm
index 92a7854..e37920f 100644
--- a/Build/Rpm.pm
+++ b/Build/Rpm.pm
@@ -313,8 +313,8 @@ sub parse {
       $exclarch ||= [];
       push @$exclarch, split(' ', $1);
     }
-    if ($line =~ /^PreReq\s*:\s*(\S.*)$/i) {
-      my $deps = $1;
+    if ($line =~ /^(Require\(pre\)|Require\(post\)|PreReq)\s*:\s*(\S.*)$/i) {
+      my $deps = $2;
       my @deps = $deps =~ /([^\s\[,]+)(\s+[<=>]+\s+[^\s\[,]+)?(\s+\[[^\]]+\])?[\s,]*/g;
       while (@deps) {
 	my ($pack, $vers, $qual) = splice(@deps, 0, 3);
-- 
2.7.4