- fix qw() with more than one dep

Changed files:
    rpm-perl_req-use_base.patch -> 1.4

diff --git a/rpm-perl_req-use_base.patch b/rpm-perl_req-use_base.patch
index 18716dfdd2e8cddeef93e1e78d18c9c3523c36dc..bec56415a4a559bceb378ce62346b38d56b86a13 100644 (file)
--- a/rpm-perl_req-use_base.patch
+++ b/rpm-perl_req-use_base.patch
@@ -20,7 +20,7 @@
 +       /x
 +      )
 +    {
-+        my @deps = ( $1 ? split /\s+/, $2 : $3 ? split /\s+/, $4 : $5 );
++        my @deps = ( $1 ? split /\s+/, $2 : $3 ? $4 : split /\s+/, $5 );
 +        for my $mod ( grep !exists $require{$_}, @deps ) {
 +            $require{$mod} = '';
 +            $line{$mod}    = $_;