dinislage/cpanspec
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Quiet verbose messages.

Browse Source
This commit is contained in:
Steven Pritchard committed 2011-09-17 17:25:19 -05:00
1 parent 755ffcb6f8
commit 1d69542e23
1 file changed
+7 -5
Download Patch File Download Diff File Expand all files Collapse all files
cpanspec
+7 -5
View File
@@ -973,6 +973,7 @@ for my $file (@args) {
or $_ =~ /^t\/.*\.t$/ or $_ =~ /^t\/.*\.t$/
} @files; } @files;
use Module::ExtractUse; use Module::ExtractUse;
my %bogus_dep=();
for my $testfile (@tests) { for my $testfile (@tests) {
my $extract_o_matic=Module::ExtractUse->new() my $extract_o_matic=Module::ExtractUse->new()
or die "Module::ExtractUse->new failed: $!\n"; or die "Module::ExtractUse->new failed: $!\n";
@@ -982,20 +983,21 @@ for my $file (@args) {
next; next;
} }
$extract_o_matic->extract_use(\$test); $extract_o_matic->extract_use(\$test);
#print STDERR "$testfile: @{[$extract_o_matic->array()]}\n";
for my $dep ($extract_o_matic->array()) { for my $dep ($extract_o_matic->array()) {
next if ($dep eq $module); next if ($dep eq $module);
next if exists $build_requires{$dep}; next if exists $build_requires{$dep};
next if exists $bogus_dep{$dep};
my $package = $packages->package($dep); my $package = $packages->package($dep);
if(!defined($package)) { if (!defined($package)) {
$bogus_dep{$dep}++;
# Don't print this for common false positives # Don't print this for common false positives
unless($dep =~ /^(Config|base|5|lib)/) { unless ($dep =~ /^(Config|base|5|lib)/) {
verbose("Module not on CPAN, not adding dependency: $dep"); verbose("Module not on CPAN, not adding dependency: $dep");
} }
next; next;
} }
if($package->distribution->dist eq $name) { if ($package->distribution->dist eq $name) {
verbose("Dependency $dep provided by ourselves, not adding dependency"); #verbose("Dependency $dep provided by ourselves, not adding dependency");
next; next;
} }
$build_requires{$dep} ||= 0; $build_requires{$dep} ||= 0;