fix bug in self-provides extraction code

Ericsson · Dec 5, 2014 · 25b466b · 25b466b
1 parent d88d96a
commit 25b466b
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Build.pm b/Build.pm
@@ -666,13 +666,13 @@ sub readdeps {
 	# try to get epoch from self-provides
 	my $vr = $pkg->{'version'};
 	$vr .= "-$pkg->{'release'}" if defined $pkg->{'release'};
-	@sp = grep {/^\Q$n\E = \d+:\Q$vr\E/} $pkg->{'provides'};
+	@sp = grep {/^\Q$n\E\s*=\s*\d+:\Q$vr\E/} @{$pkg->{'provides'}};
       } else {
-	@sp = grep {/^\Q$n\E = /} $pkg->{'provides'};
+	@sp = grep {/^\Q$n\E\s*=\s*/} @{$pkg->{'provides'}};
       }
       if (@sp) {
 	my $evr = $sp[-1];
-	$evr =~ s/^\Q$n\E =\s*//;
+	$evr =~ s/^\Q$n\E\s*=\s*//;
 	$pkg->{'epoch'} = $1 if $evr =~ s/^(\d+)://;
 	$pkg->{'release'} = $1 if $evr =~ s/-([^-]*)$//;
 	$pkg->{'version'} = $evr;