diff options
| author | Ville Skyttä <ville.skytta@iki.fi> | 2010-03-03 20:49:42 +0200 |
|---|---|---|
| committer | Panu Matilainen <pmatilai@redhat.com> | 2010-03-24 10:33:45 +0200 |
| commit | bacfca16c388c03c0bb4affbddcb712c408b7fa9 (patch) | |
| tree | fd72653a851435f173f3074d703c85d46584e387 /scripts | |
| parent | ee98a373cf79d3248122ae147d98ac461d59c9b7 (diff) | |
| download | librpm-tizen-bacfca16c388c03c0bb4affbddcb712c408b7fa9.tar.gz librpm-tizen-bacfca16c388c03c0bb4affbddcb712c408b7fa9.tar.bz2 librpm-tizen-bacfca16c388c03c0bb4affbddcb712c408b7fa9.zip | |
More here-doc skipping fixes for perl.req (#128).
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; |