- detect multiversion specfiles
authorMichael Schroeder <mls@suse.de>
Thu, 26 Aug 2010 15:23:33 +0000 (17:23 +0200)
committerMichael Schroeder <mls@suse.de>
Thu, 26 Aug 2010 15:23:33 +0000 (17:23 +0200)
Build/Rpm.pm

index 9d85d3b..4c3c8d2 100644 (file)
@@ -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;