RPM Package Manager, CVS Repository
http://rpm5.org/cvs/
____________________________________________________________________________
Server: rpm5.org Name: Arkadiusz Miskiewicz
Root: /v/rpm/cvs Email: [EMAIL PROTECTED]
Module: rpm Date: 20-Sep-2008 14:08:24
Branch: HEAD Handle: 2008092012082400
Modified files:
rpm/scripts perl.req
Log:
Fix:
use base qw($isa);
matching. ([EMAIL PROTECTED])
Summary:
Revision Changes Path
1.18 +3 -3 rpm/scripts/perl.req
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: rpm/scripts/perl.req
============================================================================
$ cvs diff -u -r1.17 -r1.18 perl.req
--- rpm/scripts/perl.req 28 Aug 2008 11:51:55 -0000 1.17
+++ rpm/scripts/perl.req 20 Sep 2008 12:08:24 -0000 1.18
@@ -133,12 +133,12 @@
if (
m/^ \s*
use \s+ base
- (?: \s+ q[wq]? \s* ( [EMAIL PROTECTED]&*'"\/+=`~,.?-] ) \s* (
\S+? (?: \s+\S+? )*? ) \s* \1
+ (?: \s+ q[wq]? \s* ( [EMAIL PROTECTED]&*'"\/+=`~,.?-] ) \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
@@ .
______________________________________________________________________
RPM Package Manager http://rpm5.org
CVS Sources Repository rpm-cvs@rpm5.org
