X-Git-Url: http://git.pld-linux.org/?p=packages%2Frpm.git;a=blobdiff_plain;f=rpm-perl_req-INC_dirs.patch;h=163ce710db176c77a38340aaa36541d1472e2575;hp=1fa9a965fcf52e5dfb2c5e660dd3eff237d32671;hb=20528342a4dfbfa39010932d921fc7c07ca6e625;hpb=a5cb92f23d181d40dd82531075a1ad5242b5d57c diff --git a/rpm-perl_req-INC_dirs.patch b/rpm-perl_req-INC_dirs.patch index 1fa9a96..163ce71 100644 --- a/rpm-perl_req-INC_dirs.patch +++ b/rpm-perl_req-INC_dirs.patch @@ -16,9 +16,10 @@ + foreach ( @ARGV ? @ARGV : <> ) { - chomp; +- if (m=/usr/(sbin|bin|lib|share|X11R6/(lib|bin))/=) { + chomp; -+ $inc{$1}++ if m#^($inc)/#; - if (m=/usr/(sbin|bin|lib|share|X11R6/(lib|bin))/=) { ++ $inc{$1}++ if m#($inc)/#; # can't anchor on ^ ++ if (m=/usr/(sbin|bin|lib|lib64|share|X11R6/(lib|lib64|bin))/=) { if (! m=(/(doc|man|info|usr/src)/|\.(so|ph|h|html|pod)$)=) { process_file($_) if -f; @@ -53,8 +64,9 @@ @@ -28,7 +29,7 @@ +print "$_\n" for sort grep $inc{$_}, keys %inc; -foreach $module (sort keys %require) { -+foreach my $module (sort keys %require) { ++foreach my $module (sort grep length, keys %require) { if (length($require{$module}) == 0) { if ($module =~ /^[0-9._]+$/) { print "perl-base >= $module\n";