+
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 @@
+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";