diff options
| author | Ville Skyttä <ville.skytta@iki.fi> | 2011-04-06 20:56:31 +0300 |
|---|---|---|
| committer | Panu Matilainen <pmatilai@redhat.com> | 2011-04-13 14:53:08 +0300 |
| commit | 2511b09679f97c1ab02967640397488d26a06b2d (patch) | |
| tree | 1ac5a6bd67f974e5ad62575ec712dc468d3345ef /scripts | |
| parent | 6331fec6e4be0c96517d37cbfbf8f2b1b2a8ad24 (diff) | |
| download | librpm-tizen-2511b09679f97c1ab02967640397488d26a06b2d.tar.gz librpm-tizen-2511b09679f97c1ab02967640397488d26a06b2d.tar.bz2 librpm-tizen-2511b09679f97c1ab02967640397488d26a06b2d.zip | |
Extract perl dependecies from "use parent qw(Foo)".
parent is a successor to base, with similar functionality.
Signed-off-by: Panu Matilainen <pmatilai@redhat.com>
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 c676c7373..90d8e6bdd 100755 --- a/scripts/perl.req +++ b/scripts/perl.req @@ -261,8 +261,8 @@ sub process_file { ($module =~ m/\.ph$/) && next; - # use base qw(Foo) dependencies - if ($statement eq "use" && $module eq "base") { + # use base|parent qw(Foo) dependencies + if ($statement eq "use" && ($module eq "base" || $module eq "parent")) { add_require($module, undef); if ($version =~ /^qw\s*[(\/'"]\s*([^)\/"']+?)\s*[)\/"']/) { add_require($_, undef) for split(' ', $1); |