More here-doc skipping fixes for perl.req (#128).

diff --git a/scripts/perl.req b/scripts/perl.req
index ab21b08..1b7286a 100755 (executable)
--- a/scripts/perl.req
+++ b/scripts/perl.req
@@ -104,8 +104,8 @@ sub process_file {
 
     # skip the "= <<" block
 
-    if (m/^\s*\$(?:.*)\s*=\s*<<\s*(["'`])(.*)\1/ ||
-        m/^\s*\$(.*)\s*=\s*<<(\w*)\s*;/) {
+    if (m/^\s*\$(?:.*)\s*=\s*<<\s*(["'`])(.+?)\1/ ||
+        m/^\s*\$(.*)\s*=\s*<<(\w+)\s*;/) {
       $tag = $2;
       while (<FILE>) {
         chomp;