rpm-perl_req-INC_dirs.patch

   1 --- scripts/perl.req~   2004-04-16 13:27:10.000000000 +0200
   2 +++ scripts/perl.req    2004-04-26 23:54:42.128568344 +0200
   3 @@ -39,9 +39,18 @@
   4  eval { require version; $HAVE_VERSION = 1; };
   5
   6
   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;
  17 -    if (m=/usr/(sbin|bin|lib|share|X11R6/(lib|bin))/=) {
  18 +    chomp;
  19 +    $inc{$1}++ if m#($inc)/#;  # can't anchor on ^
  20 +    if (m=/usr/(sbin|bin|lib|lib64|libx32|share|X11R6/(lib|lib64|libx32|bin))/=) {
  21        if (! m=(/(doc|man|info|usr/src)/|\.(so|ph|h|html|pod)$)=) {
  22          process_file($_) if -f;
  23        }
  24 @@ -53,7 +64,9 @@
  25  foreach $perlver (sort keys %perlreq) {
  26    print "perl >= $perlver\n";
  27  }
  28 +print "$_\n" for sort grep $inc{$_}, keys %inc;
  29 +
  30 -foreach $module (sort keys %require) {
  31 +foreach my $module (sort grep length, keys %require) {
  32    if (length($require{$module}) == 0) {
  33      print "perl($module)\n";
  34    } else {