Fix brace matching on multiline constructs in perl.req (RhBug:752119)

[platform/upstream/rpm.git] / scripts / perl.req

diff --git a/scripts/perl.req b/scripts/perl.req
index 90d8e6b..cd2cbde 100755 (executable)
--- a/scripts/perl.req
+++ b/scripts/perl.req
@@ -120,8 +120,9 @@ sub process_file {
     if ( m/^.*\Wq[qxwr]?\s*([{([#|\/])[^})\]#|\/]*$/ && ! m/^\s*(require|use)\s/ ) {
       $tag = $1;
       $tag =~ tr/{\(\[\#|\//})]#|\//;
+      $tag = quotemeta($tag);
       while (<FILE>) {
-        ( $_ =~ m/\}/ ) && last;
+        ( $_ =~ m/$tag/ ) && last;
       }
     }