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>

diff --git a/scripts/perl.req b/scripts/perl.req
index c676c73..90d8e6b 100755 (executable)
--- 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);