folkslinux
/
rpm
mirror of https://github.com/rpm-software-management/rpm.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Extract dependencies from "use base qw"..."" and "use base qw'...'".

This commit is contained in:
Ville Skyttä 2010-05-23 10:54:39 +03:00 committed by Panu Matilainen
parent 6a37f166a8
commit 7caf820c77
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scripts/perl.req
View File

@ -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/) {