diff options
| author | Ville Skyttä <ville.skytta@iki.fi> | 2011-02-12 12:24:50 +0200 |
|---|---|---|
| committer | Panu Matilainen <pmatilai@redhat.com> | 2011-02-12 13:11:22 +0200 |
| commit | d3475ef4682e70e0d0e6fee1c42ac0e763fecd48 (patch) | |
| tree | e992655f16646a2ea08f449b969a55f1a8926df2 | |
| parent | 8a6b6a86d9488fb53b9cbb40d75544add0093920 (diff) | |
| download | librpm-tizen-d3475ef4682e70e0d0e6fee1c42ac0e763fecd48.tar.gz librpm-tizen-d3475ef4682e70e0d0e6fee1c42ac0e763fecd48.tar.bz2 librpm-tizen-d3475ef4682e70e0d0e6fee1c42ac0e763fecd48.zip | |
Avoid emitting empty perl() module deps.
Test case from DOM.pm (perl-CSS-DOM 0.13):
use # to keep CPANTS happy :-)
strict;
use # same here
warnings;
Signed-off-by: Panu Matilainen <pmatilai@redhat.com>
| -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 19fcb2645..c676c7373 100755 --- a/scripts/perl.req +++ b/scripts/perl.req @@ -170,7 +170,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 # the latter part is for "use base qw(Foo)" and friends special case \s*($modver_re|(qw\s*[(\/'"]\s*|['"])[^)\/"'\$]*?\s*[)\/"'])? |