From 4704461a4b6578c9b4edd6a3e2af1f00e1f99c9b Mon Sep 17 00:00:00 2001 From: Michael Schroeder Date: Thu, 26 Aug 2010 17:23:33 +0200 Subject: [PATCH] - detect multiversion specfiles --- Build/Rpm.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Build/Rpm.pm b/Build/Rpm.pm index 9d85d3b..4c3c8d2 100644 --- a/Build/Rpm.pm +++ b/Build/Rpm.pm @@ -334,6 +334,9 @@ sub parse { push @$badarch, split(' ', $1); } } + if (@subpacks && $preamble && exists($ret->{'version'}) && $line =~ /^Version\s*:\s*(\S+)/i) { + $ret->{'multiversion'} = 1 if $ret->{'version'} ne $1; + } if ($line =~ /^(?:Requires\(pre\)|Requires\(post\)|PreReq)\s*:\s*(\S.*)$/i) { my $deps = $1; my @deps = $deps =~ /([^\s\[,]+)(\s+[<=>]+\s+[^\s\[,]+)?(\s+\[[^\]]+\])?[\s,]*/g; -- 2.7.4