diff options
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/perl.req | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/perl.req b/scripts/perl.req index ab21b08ea..1b7286a6a 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; |