Do not dump verbose diagnostics in perl core.

For: RT # 128160
Perl · May 16, 2016 · 9ec9395 · 9ec9395
1 parent a26223c
commit 9ec9395
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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;