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-10-26 10:48:31.529709016 +0100
8 + # handle "use base qw/ foo::bar baz::blah /;" and variations
10 + m/^ \s* use \s+ base
11 + (?: \s+ q[wq]? \s* ( [!@#\$%^&*'"\/+=`~,.?-] ) \s* ( [\w:]+? (?: \s+[\w:]+? )*? ) \s* \1
13 + \s* ( ["'] ) ( [\w:]+? ) \3
15 + # qw[], qw(), qw<>, qw{} are handled here; lax, but who gives
16 + \s+ q[wq]? \s* [\[({<] \s* ( [\w:]+? (?: \s+[\w:]+? )*? ) \s* [\])}>]
22 + my @deps = ( $1 ? split /\s+/, $2 : $3 ? $4 : split /\s+/, $5 );
23 + for my $mod ( grep !exists $require{$_}, @deps ) {
24 + $require{$mod} = '';
31 # ouch could be in a eval, perhaps we do not want these since we catch
32 # an exception they must not be required