From b411f85d7cccae357aec4cd688a3a0f8cb606aa7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ville=20Skytt=C3=A4?= Date: Wed, 3 Mar 2010 20:49:42 +0200 Subject: [PATCH 2/2] More here-doc skipping fixes for perl.req (#128). --- scripts/perl.req | 4 ++-- 1 files 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 () { chomp; -- 1.6.6.1