<http://perl5.git.perl.org/perl.git/commitdiff/9ec93952bf7c183cc01466806c75ca9fcbc2548f?hp=a26223c9fe9f719139f4223d916e9ed21e354873>
- Log -----------------------------------------------------------------
commit 9ec93952bf7c183cc01466806c75ca9fcbc2548f
Author: Karen Etheridge <ether@cpan.org>
Date: Mon May 16 14:35:45 2016 -0700
Do not dump verbose diagnostics in perl core.
For: RT # 128160
-----------------------------------------------------------------------
Summary of changes:
cpan/Module-Metadata/t/extract-package.t | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/cpan/Module-Metadata/t/extract-package.t b/cpan/Module-Metadata/t/extract-package.t
index db99dae..b1b776c 100644
--- a/cpan/Module-Metadata/t/extract-package.t
+++ b/cpan/Module-Metadata/t/extract-package.t
@@ -159,7 +159,7 @@ foreach my $test_case (@pkg_names) {
or $errs++;
}
is( $warnings, '', "case $test_case->{name}: no warnings from parsing" ) or $errs++;
- diag "Got: '" . join(', ', @got) . "'\nModule contents:\n$code" if $errs;
+ diag "Got: '" . join(', ', @got) . "'\nModule contents:\n$code" if !$ENV{PERL_CORE} && $errs;
}
continue {
++$test_num;
--
Perl5 Master Repository