diff options
| author | Karen Etheridge <ether@cpan.org> | 2016-05-16 14:35:45 -0700 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2016-05-16 18:13:26 -0400 |
| commit | 9ec93952bf7c183cc01466806c75ca9fcbc2548f (patch) | |
| tree | a9f39d2c2bfa42ffa65174c1bfc5a131cfb0e0ab /cpan/Module-Metadata | |
| parent | a26223c9fe9f719139f4223d916e9ed21e354873 (diff) | |
| download | perl-9ec93952bf7c183cc01466806c75ca9fcbc2548f.tar.gz | |
Do not dump verbose diagnostics in perl core.
For: RT # 128160
Diffstat (limited to 'cpan/Module-Metadata')
| -rw-r--r-- | cpan/Module-Metadata/t/extract-package.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cpan/Module-Metadata/t/extract-package.t b/cpan/Module-Metadata/t/extract-package.t index db99daebc2..b1b776c6f1 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; |