SOURCES: rpm-perl_req-use_base.patch - fix qw() with more than one dep

[radek]

Author: radek                        Date: Tue Aug 26 18:36:20 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- fix qw() with more than one dep

---- Files affected:
SOURCES:
   rpm-perl_req-use_base.patch (1.3 -> 1.4) 

---- Diffs:

================================================================
Index: SOURCES/rpm-perl_req-use_base.patch
diff -u SOURCES/rpm-perl_req-use_base.patch:1.3 SOURCES/rpm-perl_req-use_base.patch:1.4
--- SOURCES/rpm-perl_req-use_base.patch:1.3	Wed Aug 20 21:41:01 2008
+++ SOURCES/rpm-perl_req-use_base.patch	Tue Aug 26 20:36:14 2008
@@ -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}    = $_;
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/SOURCES/rpm-perl_req-use_base.patch?r1=1.3&r2=1.4&f=u