1 --- rpm-5.1.4/scripts/perl.req 2008-08-20 21:27:09.929116479 +0200
2 +++ rpm-5.1.4/scripts/perl.req 2008-08-20 21:27:25.919114230 +0200
8 + # handle "use base qw/ foo::bar baz::blah /;" and variations
12 + (?: \s+ q[wq]? \s* ( [!@#\$%^&*'"\/+=`~,.?-] ) \s* ( \S+? (?: \s+\S+? )*? ) \s* \1
14 + \s* ( ["'] ) ( \S+? ) \3
16 + # qw[], qw(), qw<>, qw{} are handled here; lax, but who gives
17 + \s+ q[wq]? \s* [\[({<] \s* ( \S+? (?: \s+\S+? )*? ) \s* [\])}>]
23 + my @deps = ( $1 ? split /\s+/, $2 : $3 ? $4 : split /\s+/, $5 );
24 + for my $mod ( grep !exists $require{$_}, @deps ) {
25 + $require{$mod} = '';
32 # ouch could be in a eval, perhaps we do not want these since we catch
33 # an exception they must not be required