{}-s must be escaped in perl regexp

diff --git a/addbr b/addbr
index dd9f28b3cf591cd6a07c4d7c49e3c046953d5b57..b101e3989cd316ee608dc66e2b4cd8d9842ef7d3 100755 (executable)
--- a/addbr
+++ b/addbr
@@ -25,7 +25,7 @@ open FILE, "<", $file;
 my @in = <FILE>;
 close FILE;
 
-my $brm = qr/#?(?:%{!?\?with_\S+:)?\s*BuildRequires:\s*(\S+)\s*(?:(>|>=|==|<=|<).*)?}?/i;
+my $brm = qr/#?(?:%\{!?\?with_\S+:)?\s*BuildRequires:\s*(\S+)\s*(?:(>|>=|==|<=|<).*)?\}?/i;
 foreach ( @in ) {
        if ( /^$brm$/o ) {
                if ( $1 eq $add ) {