- for .la symlinks generate libtool(symlink), not libtool(target) Provides

[packages/rpm.git] / rpm-perl_req-use_base.patch

diff --git a/rpm-perl_req-use_base.patch b/rpm-perl_req-use_base.patch
index bec56415a4a559bceb378ce62346b38d56b86a13..cdb0a7cd6753877dd445824bfa87228677df5bf1 100644 (file)
--- a/rpm-perl_req-use_base.patch
+++ b/rpm-perl_req-use_base.patch
@@ -1,20 +1,19 @@
 --- rpm-5.1.4/scripts/perl.req 2008-08-20 21:27:09.929116479 +0200
-+++ rpm-5.1.4/scripts/perl.req 2008-08-20 21:27:25.919114230 +0200
-@@ -196,7 +196,29 @@
++++ rpm-5.1.4/scripts/perl.req 2008-10-26 10:48:31.529709016 +0100
+@@ -196,7 +196,28 @@
        }
      }
  
 -    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
++        m/^ \s* use \s+ base
++           (?:  \s+ q[wq]? \s* ( [!@#\$%^&*'"\/+=`~,.?-] ) \s* ( [\w:]+? (?: \s+[\w:]+? )*? ) \s* \1
 +               |
-+                \s* ( ["'] ) ( \S+? ) \3
++                \s* ( ["'] ) ( [\w:]+? ) \3
 +               |
 +                # qw[], qw(), qw<>, qw{} are handled here; lax, but who gives
-+                \s+ q[wq]? \s* [\[({<] \s* ( \S+? (?: \s+\S+? )*? ) \s* [\])}>]
++                \s+ q[wq]? \s* [\[({<] \s* ( [\w:]+? (?: \s+[\w:]+? )*? ) \s* [\])}>]
 +           )
 +           \s* ;
 +       /x