X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FPerl-Critic-Policy-Dynamic-NoIndirect.git;a=blobdiff_plain;f=samples%2Fcheck.pl;fp=samples%2Fcheck.pl;h=4703f4d181353b183f4645538ae8537cc374adeb;hp=7f095329ad7caeee2238b245e08aef38f10ad5c2;hb=ea367e59d416e5ce66982f813e8cce81cf5df9d6;hpb=9721ac812258eb038aaf903642642e30da1eb416

diff --git a/samples/check.pl b/samples/check.pl
index 7f09532..4703f4d 100644
--- a/samples/check.pl
+++ b/samples/check.pl
@@ -10,4 +10,12 @@ 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;
+}