From bacfca16c388c03c0bb4affbddcb712c408b7fa9 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ville=20Skytt=C3=A4?= <ville.skytta@iki.fi>
Date: Wed, 3 Mar 2010 20:49:42 +0200
Subject: [PATCH] More here-doc skipping fixes for perl.req (#128).

---
 scripts/perl.req | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/perl.req b/scripts/perl.req
index ab21b08..1b7286a 100755
--- 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;
-- 
2.7.4