SOURCES: rpm-perl_req-use_base.patch (NEW) - support "use base qw/ foo::bar...
radek
radek at pld-linux.org
Wed Aug 20 21:30:44 CEST 2008
Author: radek Date: Wed Aug 20 19:30:44 2008 GMT
Module: SOURCES Tag: HEAD
---- Log message:
- support "use base qw/ foo::bar /;" dependencies
---- Files affected:
SOURCES:
rpm-perl_req-use_base.patch (NONE -> 1.1) (NEW)
---- Diffs:
================================================================
Index: SOURCES/rpm-perl_req-use_base.patch
diff -u /dev/null SOURCES/rpm-perl_req-use_base.patch:1.1
--- /dev/null Wed Aug 20 21:30:44 2008
+++ SOURCES/rpm-perl_req-use_base.patch Wed Aug 20 21:30:38 2008
@@ -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
================================================================
More information about the pld-cvs-commit
mailing list