diff options
| author | Ville Skyttä <ville.skytta@iki.fi> | 2010-01-24 13:28:44 +0200 |
|---|---|---|
| committer | Panu Matilainen <pmatilai@redhat.com> | 2010-01-25 12:29:13 +0200 |
| commit | 7c8d054c1b596cd6fdfeec102516ead7b8fb3036 (patch) | |
| tree | c687f02d25dd6a795c9a7ef7cbec205d4772589d /scripts | |
| parent | cbb703f202f056baa616e3266482f69f5466b96a (diff) | |
| download | librpm-tizen-7c8d054c1b596cd6fdfeec102516ead7b8fb3036.tar.gz librpm-tizen-7c8d054c1b596cd6fdfeec102516ead7b8fb3036.tar.bz2 librpm-tizen-7c8d054c1b596cd6fdfeec102516ead7b8fb3036.zip | |
Do not emit perl(#) dependencies for multiline use/require with comments.
For example:
use # comment goes here
Foo::Bar;
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/perl.req | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/perl.req b/scripts/perl.req index 4c08dcd1a..28ff7821c 100755 --- a/scripts/perl.req +++ b/scripts/perl.req @@ -146,7 +146,7 @@ sub process_file { (m/^(\s*) # we hope the inclusion starts the line (require|use)\s+(?!\{) # do not want 'do {' loops # quotes around name are always legal - [\'\"]?([^\;\ \'\"\t]*)[\'\"]?[\t\;\ ] + [\'\"]?([^\;\ \'\"\t#]*)[\'\"]?[\t\;\ ] # the syntax for 'use' allows version requirements \s*([.0-9]*) /x) |