diff options
| author | Ville Skyttä <ville.skytta@iki.fi> | 2010-05-23 10:54:39 +0300 |
|---|---|---|
| committer | Panu Matilainen <pmatilai@redhat.com> | 2010-06-29 13:18:52 +0300 |
| commit | 7caf820c778351baa237f04cb652d55f24811349 (patch) | |
| tree | d68c91e71251f47fb9e15f98a2a67620692b20fa /scripts | |
| parent | 6a37f166a81c302e18eb987ad6d42a7dd930ae9a (diff) | |
| download | librpm-tizen-7caf820c778351baa237f04cb652d55f24811349.tar.gz librpm-tizen-7caf820c778351baa237f04cb652d55f24811349.tar.bz2 librpm-tizen-7caf820c778351baa237f04cb652d55f24811349.zip | |
Extract dependencies from "use base qw"..."" and "use base qw'...'".
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 1b7286a6a..07c549106 100755 --- a/scripts/perl.req +++ b/scripts/perl.req @@ -173,7 +173,7 @@ sub process_file { ['"]?([^; '"\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*[)\/"'])? + \s*($modver_re|(qw\s*[(\/'"]\s*|['"])[^)\/"'\$]*?\s*[)\/"'])? /x) ) { my ($whitespace, $statement, $module, $version) = ($1, $2, $3, $4); @@ -264,7 +264,7 @@ sub process_file { # use base qw(Foo) dependencies if ($statement eq "use" && $module eq "base") { add_require($module, undef); - if ($version =~ /^qw\s*[(\/]\s*([^)\/]+?)\s*[)\/]/) { + if ($version =~ /^qw\s*[(\/'"]\s*([^)\/"']+?)\s*[)\/"']/) { add_require($_, undef) for split(' ', $1); } elsif ($version =~ /(["'])([^"']+)\1/) { |