- support "use base qw/ foo::bar /;" dependencies

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

diff --git a/rpm-perl_req-use_base.patch b/rpm-perl_req-use_base.patch
new file mode 100644 (file)
index 0000000..76d6542
--- /dev/null
+++ b/rpm-perl_req-use_base.patch
@@ -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