Make the sample script output compilation errors

[perl/modules/Perl-Critic-Policy-Dynamic-NoIndirect.git] / samples / check.pl

diff --git a/samples/check.pl b/samples/check.pl
index f444d9498febe9fcd13b71a8105e5133df3d9ee6..4703f4d181353b183f4645538ae8537cc374adeb 100644 (file)
--- a/samples/check.pl
+++ b/samples/check.pl
@@ -5,9 +5,17 @@ use warnings;
 
 use blib;
 
-use Perl::Critic::TestUtils qw/pcritique_with_violations/;
+use Perl::Critic::TestUtils qw<pcritique_with_violations>;
 Perl::Critic::TestUtils::block_perlcriticrc();
 
 my $code = shift || exit;
 
-print for eval { pcritique_with_violations('Dynamic::NoIndirect', \$code) };
+my @violations = eval {
+ pcritique_with_violations('Dynamic::NoIndirect', \$code)
+};
+
+if ($@) {
+ print $@;
+} else {
+ print for @violations;
+}