]>
Commit | Line | Data |
---|---|---|
a5cb92f2 | 1 | --- scripts/perl.req~ 2004-04-16 13:27:10.000000000 +0200 |
2 | +++ scripts/perl.req 2004-04-26 23:54:42.128568344 +0200 | |
89c3f91f | 3 | @@ -39,9 +39,18 @@ |
6ecfe7c2 | 4 | eval { require version; $HAVE_VERSION = 1; }; |
a5cb92f2 | 5 | |
a5cb92f2 | 6 | |
a5cb92f2 | 7 | +# *inc variables are used to track dependencies on directories for modules. |
8 | +# These directories (especially arch-dependent) are likely to change some day. | |
9 | +my @inc = sort { length $b cmp length $a } | |
10 | + map { s#/*$##; $_ } | |
11 | + grep m#^/.#, @INC; | |
12 | +my %inc = map { $_ => 0 } @inc; | |
13 | +my $inc = join '|', map "\Q$_\E", @inc; | |
14 | + | |
15 | foreach ( @ARGV ? @ARGV : <> ) { | |
16 | - chomp; | |
779126cb | 17 | - if (m=/usr/(sbin|bin|lib|share|X11R6/(lib|bin))/=) { |
a5cb92f2 | 18 | + chomp; |
7e536e15 | 19 | + $inc{$1}++ if m#($inc)/#; # can't anchor on ^ |
d76b9ce2 | 20 | + if (m=/usr/(sbin|bin|lib|lib64|libx32|share|X11R6/(lib|lib64|libx32|bin))/=) { |
a5cb92f2 | 21 | if (! m=(/(doc|man|info|usr/src)/|\.(so|ph|h|html|pod)$)=) { |
22 | process_file($_) if -f; | |
89c3f91f | 23 | } |
6ecfe7c2 JR |
24 | @@ -53,7 +64,9 @@ |
25 | foreach $perlver (sort keys %perlreq) { | |
26 | print "perl >= $perlver\n"; | |
a5cb92f2 | 27 | } |
a5cb92f2 | 28 | +print "$_\n" for sort grep $inc{$_}, keys %inc; |
6ecfe7c2 | 29 | + |
a5cb92f2 | 30 | -foreach $module (sort keys %require) { |
f730fb9e | 31 | +foreach my $module (sort grep length, keys %require) { |
a5cb92f2 | 32 | if (length($require{$module}) == 0) { |
6ecfe7c2 JR |
33 | print "perl($module)\n"; |
34 | } else { |