Changed files:
rpm-perl_req-use_base.patch -> 1.3
+ 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