Ticket #139: 0005-Extract-dependencies-from-some-usual-syntaxes-of-use.patch

a/scripts/perl.req

@@ -136 +136 @@
-      }
-    }
-
+    my $modver_re = qr/[.0-9]+/;
+
-    if (
-
-# ouch could be in a eval, perhaps we do not want these since we catch
@@ -151 +153 @@
-         # quotes around name are always legal
-         ['"]?([^; '"\t#]*)['"]?[\t; ]
-         # the syntax for 'use' allows version requirements
-
+
+
-         /x)
-       ) {
-      my ($whitespace, $statement, $module, $version) = ($1, $2, $3, $4);
@@ -239 +242 @@
-
-      ($module =~ m/\.ph$/) && next;
-
+      # use base qw(Foo) dependencies
+      if ($statement eq "use" && $module eq "base") {
+        $require{$module} = undef;
+        if ($version =~ /^qw\s*[(\/]\s*([^)\/]+?)\s*[)\/]/) {
+          $require{$_} = undef for split(' ', $1);
+        }
+        elsif ($version =~ /(["'])([^"']+)\1/) {
+          $require{$2} = undef;
+        }
+        next;
+      }
+      $version = undef unless $version =~ /^$modver_re$/o;
+
-      $require{$module} = $version;
-    }
-