Do not dump verbose diagnostics in perl core.

karenetheridge · jkeenan · commit 9ec93952bf7c · 2016-05-16T18:13:26.000-04:00
For:  RT # 128160
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;

Original file line number	Diff line number	Diff line change
`@@ -159,7 +159,7 @@ foreach my $test_case (@pkg_names) {`
`159`	`159`	`or $errs++;`
`160`	`160`	`}`
`161`	`161`	`is( $warnings, '', "case $test_case->{name}: no warnings from parsing" ) or $errs++;`
`162`		`- diag "Got: '" . join(', ', @got) . "'\nModule contents:\n$code" if $errs;`
	`162`	`+ diag "Got: '" . join(', ', @got) . "'\nModule contents:\n$code" if !$ENV{PERL_CORE} && $errs;`
`163`	`163`	`}`
`164`	`164`	`continue {`
`165`	`165`	`++$test_num;`