Use $test->diag, not diag() - in Test::Code::TidyAll

autarch · autarch · commit 1eec20d8df49 · 2015-08-06T15:56:12.000-04:00
diff --git a/lib/Test/Code/TidyAll.pm b/lib/Test/Code/TidyAll.pm
@@ -23,7 +23,7 @@ sub tidyall_ok {
         $conf_file = Code::TidyAll->find_conf_file( \@conf_names, "." );
     }
     $options{quiet} = 1 unless $options{verbose};
-    diag("Using $conf_file for config")
+    $test->diag("Using $conf_file for config")
         if $options{verbose};
     my $ct = Code::TidyAll->new_from_conf_file(
         $conf_file,

Original file line number	Diff line number	Diff line change
`@@ -23,7 +23,7 @@ sub tidyall_ok {`
`23`	`23`	`$conf_file = Code::TidyAll->find_conf_file( \@conf_names, "." );`
`24`	`24`	`}`
`25`	`25`	`$options{quiet} = 1 unless $options{verbose};`
`26`		`- diag("Using $conf_file for config")`
	`26`	`+ $test->diag("Using $conf_file for config")`
`27`	`27`	`if $options{verbose};`
`28`	`28`	`my $ct = Code::TidyAll->new_from_conf_file(`
`29`	`29`	`$conf_file,`