[perl5.git] / dist / Module-CoreList / identify-dependencies

#!/usr/local/perl5.6.1/bin/perl -w
use strict;
use warnings;
use Module::CoreList;

use vars qw/%modules/;

my @files = @ARGV;
unless (@files) {
    print "$0: using test scripts\n";
    @files = grep { -e $_ } 'test.pl', glob 't/*.t';
}

print "$0: checking ", join(', ', @files), "\n";

my @used;
for (@files) {
    open my $fh, "$^X -Mblib -MModule::CoreList=dumpinc $_|"
      or die "couldn't fork $!";
    while (<$fh>) { last if /^---INC---/ }
    push @used, map { chomp; s{/}{::}g; s{\.pm$}{}; $_ } <$fh>;
}

*modules = \%Module::CoreList::version;
my %uniq = map { $_ => 0 } grep { !exists $modules{$]}{$_} } @used;

use Data::Dumper;
print Dumper \%uniq;
Commit	Line	Data
3a02dfe7 RGS	1	#!/usr/local/perl5.6.1/bin/perl -w
	2	use strict;
	3	use warnings;
	4	use Module::CoreList;
	5
	6	use vars qw/%modules/;
	7
	8	my @files = @ARGV;
	9	unless (@files) {
	10	print "$0: using test scripts\n";
	11	@files = grep { -e $_ } 'test.pl', glob 't/*.t';
	12	}
	13
	14	print "$0: checking ", join(', ', @files), "\n";
	15
	16	my @used;
	17	for (@files) {
	18	open my $fh, "$^X -Mblib -MModule::CoreList=dumpinc $_\|"
	19	or die "couldn't fork $!";
	20	while (<$fh>) { last if /^---INC---/ }
	21	push @used, map { chomp; s{/}{::}g; s{\.pm$}{}; $_ } <$fh>;
	22	}
	23
	24	*modules = \%Module::CoreList::version;
	25	my %uniq = map { $_ => 0 } grep { !exists $modules{$]}{$_} } @used;
	26
	27	use Data::Dumper;
	28	print Dumper \%uniq;