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.

diff --git a/findunusedbr b/findunusedbr
index 7a6359b01b34061cbfe4e2172c5314beed821d7e..03c172a8e794e05ad921e3a67acf21ffb7a2ed29 100755 (executable)
--- 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, $_;