[projects/cleanbuild] findunusedbr: recent perl regex fix

[glen]

commit b3a130b41f9ce9ddb810e288e3e354ac3bd8d170
Author: Elan Ruusamäe <glen at pld-linux.org>
Date:   Tue Oct 17 20:00:28 2017 +0300

    findunusedbr: recent perl regex fix
    
    Unescaped left brace in regex is illegal here in regex; marked by <-- HERE in m/^\s*(?:%{ <-- HERE .*)?BuildRequires:\s*(\S+)/ at cleanbuild/findunusedbr line 21.

 findunusedbr | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
---
diff --git a/findunusedbr b/findunusedbr
index 7a6359b..03c172a 100755
--- a/findunusedbr
+++ b/findunusedbr
@@ -18,7 +18,7 @@ my $spec = shift @ARGV or die "Spec file not specified\n";
 my @rpms;
 open F_IN, "<", $spec or die "Cannot open '$spec'\n";
 while ( <F_IN> ) {
-	if ( /^\s*(?:%{.*)?BuildRequires:\s*(\S+)/i ) {
+	if ( /^\s*(?:%\{.*)?BuildRequires:\s*(\S+)/i ) {
 		local $_ = $1;
 		s/}$//;
 		push @rpms, $_;
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/projects/cleanbuild.git/commitdiff/b3a130b41f9ce9ddb810e288e3e354ac3bd8d170