Handle "use vX.X.X" in perl dependency extraction (rhbz#140597)

Patch by Steven Prichard

1 files changed, 5 insertions, 4 deletions

diff --git a/scripts/perl.req b/scripts/perl.req
index fda79bae1..0d26346bb 100755
--- a/scripts/perl.req
+++ b/scripts/perl.req
@@ -203,16 +203,17 @@ sub process_file {
 
       $module =~ s/\(\s*\)$//;
 
-      if ( $module =~ m/^[0-9._]+$/ ) {
+      if ( $module =~ m/^v?([0-9._]+)$/ ) {
       # if module is a number then both require and use interpret that
       # to mean that a particular version of perl is specified
 
-      if ($module =~ /5.00/) {
-        print "perl >= 0:$module\n";
+      my $ver=$1;
+      if ($ver =~ /5.00/) {
+        print "perl >= 0:$ver\n";
         next;
       }
       else {
-        print "perl >= 1:$module\n";
+        print "perl >= 1:$ver\n";
         next;
       }