commit b3a130b41f9ce9ddb810e288e3e354ac3bd8d170
Author: Elan Ruusamäe <g...@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
_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
