SOURCES: rpm-perl_req-use_base.patch (NEW) - support "use base qw/ foo::bar...

[radek]

Author: radek                        Date: Wed Aug 20 19:30:44 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- support "use base qw/ foo::bar /;" dependencies

---- Files affected:
SOURCES:
   rpm-perl_req-use_base.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/rpm-perl_req-use_base.patch
diff -u /dev/null SOURCES/rpm-perl_req-use_base.patch:1.1
--- /dev/null	Wed Aug 20 21:30:44 2008
+++ SOURCES/rpm-perl_req-use_base.patch	Wed Aug 20 21:30:38 2008
@@ -0,0 +1,33 @@
+--- rpm-5.1.4/scripts/perl.req.in.orig	2008-08-20 21:27:09.929116479 +0200
++++ rpm-5.1.4/scripts/perl.req.in	2008-08-20 21:27:25.919114230 +0200
+@@ -196,7 +196,29 @@
+       }
+     }
+ 
+-    if ( 
++    # handle "use base qw/ foo::bar baz::blah /;" and variations
++    if (
++        m/^ \s*
++           use \s+ base
++           (?:  \s+ q[wq]? \s* ( [!@#\$%^&*'"\/+=`~,.?-] )  \s* ( \S+? (?: \s+\S+ )* ) \s* \1
++               |
++                \s* ( ["'] ) ( \S+ ) \3
++               |
++                # qw[], qw(), qw<>, qw{} are handled here; lax, but who gives
++                \s+ q[wq]? \s* [\[({<] \s* ( \S+? (?: \s+\S+ )* ) \s* [\])}>]
++           )
++           \s* ;
++       /x
++      )
++    {
++        my @deps = ( $1 ? split /\s+/, $2 : $3 ? split /\s+/, $4 : $5 );
++        for my $mod ( grep !exists $require{$_}, @deps ) {
++            $require{$mod} = '';
++            $line{$mod}    = $_;
++        }
++    }
++
++    elsif ( 
+ 
+ # ouch could be in a eval, perhaps we do not want these since we catch
+ # an exception they must not be required
================================================================