add support for Requires(pre) or (post) semantic
authorAdrian Schröter <adrian@suse.de>
Tue, 12 Aug 2008 15:46:49 +0000 (15:46 +0000)
committerAdrian Schröter <adrian@suse.de>
Tue, 12 Aug 2008 15:46:49 +0000 (15:46 +0000)
Build/Rpm.pm

index 92a7854..e37920f 100644 (file)
@@ -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);