#!/usr/bin/perl -w
use strict;
use warnings;
use File::Find;
use ExtUtils::MM_Unix;

my $scan = sub {
	my %found;
	for my $dir (@_) {
		if (-d $dir) {
			my $topdir = $dir;
			find(
				sub {
					if (-f $File::Find::name && $File::Find::name =~ /\.pm$/ ) {
						my $fn = $File::Find::name;
						$fn =~ s/\Q$topdir//g;
						$fn =~ s/\//::/g;
						$fn =~ s/^:://g;
						$fn =~ s/\.pm//g;
						$found{$fn} = ($fn =~ tr/://) / 2;
					}
				},
				$dir
			);
		}
	}
	%found;
};

print "Beginne mit Modulsuche in '".join(';',@INC)."'\n";
my %found = $scan->(@INC);	# erstmal alle Unterverzeichniss einlesen
my @modules;
foreach my $name (sort {$found{$a} <=> $found{$b}} keys %found) {
	if ($found{$name}) {	# untere Hirarchien nicht mehr inventarisieren, z.B. nur Authen::SASL und nicht Authen::SASL::CRAM_MD5
		my @temp = split /::/,$name;
		my $flag = 0;
		for (my $z = 0; $z < scalar @temp - 1; $z ++) {
			if (defined $found{join('::',@temp[0..$z])}) {	# z.B. App::Packer::PAR hat nur die dritte Hirarchie
				$flag = 1;
				last;
			}
		}
		push @modules,$name if !$flag;
	}
	else { push @modules,$name; }
}

print "Beginne mit Versionsermittlung fuer ".(scalar @modules)." Modul(e)\n";
my (%ver,@fehler);
#open STDERR,'>',"error.txt";	# hier landen haufenweise Fehlermeldungen, insgesamt 9 KB bei 560 Modulen
foreach my $name (@modules) {
	my $v = MM->parse_version($name);
#	eval "use $name";
#	my $v = $name->VERSION;
	if (defined $v) {
		$ver{$name} = $v
	}
	else { push @fehler,$name; }
}
foreach my $name (sort {lc $a cmp lc $b} keys %ver) {	# hier funktioniert das sort{} schon nicht mehr
	print "$name -> $ver{$name}\n";
}
print "\nFehlerhafte (".(scalar @fehler)." Stueck):\n".join("\n",@fehler)."\n";