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
2011-09-17 17:25:19 -05:00
parent 755ffcb6f8
commit 1d69542e23
1 changed files with 7 additions and 5 deletions
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$/
} @files;
use Module::ExtractUse;
my %bogus_dep=();
for my $testfile (@tests) {
my $extract_o_matic=Module::ExtractUse->new()
or die "Module::ExtractUse->new failed: $!\n";
@@ -982,20 +983,21 @@ for my $file (@args) {
next;
}
$extract_o_matic->extract_use(\$test);
#print STDERR "$testfile: @{[$extract_o_matic->array()]}\n";
for my $dep ($extract_o_matic->array()) {
next if ($dep eq $module);
next if exists $build_requires{$dep};
next if exists $bogus_dep{$dep};
my $package = $packages->package($dep);
if(!defined($package)) {
if (!defined($package)) {
$bogus_dep{$dep}++;
# 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");
}
next;
}
if($package->distribution->dist eq $name) {
verbose("Dependency $dep provided by ourselves, not adding dependency");
if ($package->distribution->dist eq $name) {
#verbose("Dependency $dep provided by ourselves, not adding dependency");
next;
}
$build_requires{$dep} ||= 0;