SOURCES: rpm-perl_req-use_base.patch - fix greediness

[radek]

Author: radek                        Date: Wed Aug 20 19:41:07 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- fix greediness

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

---- Diffs:

================================================================
Index: SOURCES/rpm-perl_req-use_base.patch
diff -u SOURCES/rpm-perl_req-use_base.patch:1.2 SOURCES/rpm-perl_req-use_base.patch:1.3
--- SOURCES/rpm-perl_req-use_base.patch:1.2	Wed Aug 20 21:34:57 2008
+++ SOURCES/rpm-perl_req-use_base.patch	Wed Aug 20 21:41:01 2008
@@ -9,12 +9,12 @@
 +    if (
 +        m/^ \s*
 +           use \s+ base
-+           (?:  \s+ q[wq]? \s* ( [!@#\$%^&*'"\/+=`~,.?-] )  \s* ( \S+? (?: \s+\S+ )* ) \s* \1
++           (?:  \s+ q[wq]? \s* ( [!@#\$%^&*'"\/+=`~,.?-] ) \s* ( \S+? (?: \s+\S+? )*? ) \s* \1
 +               |
-+                \s* ( ["'] ) ( \S+ ) \3
++                \s* ( ["'] ) ( \S+? ) \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* ( \S+? (?: \s+\S+? )*? ) \s* [\])}>]
 +           )
 +           \s* ;
 +       /x
================================================================

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