From 0f4a6454d5a72a715474481d1f4d14bf185e2dec Mon Sep 17 00:00:00 2001
From: Greg Sabino Mullane <greg@endpoint.com>
Date: Mon, 16 Jan 2012 11:01:57 -0500
Subject: [PATCH] Add some debugging to the perlcritic test

---
 t/99_perlcritic.t | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/t/99_perlcritic.t b/t/99_perlcritic.t
index 4c8cfe0f9..3bb7610f0 100644
--- a/t/99_perlcritic.t
+++ b/t/99_perlcritic.t
@@ -41,7 +41,9 @@ for my $filename (qw{Makefile.PL check_postgres.pl t/CP_Testing.pm}) {
     -e $filename or die qq{Could not find "$filename"!};
     open my $oldstderr, '>&', \*STDERR or die 'Could not dupe STDERR';
     close STDERR or die qq{Could not close STDERR: $!};
+	diag "Running perlcritic on file $filename";
     my @vio = $critic->critique($filename);
+	diag "Done";
     open STDERR, '>&', $oldstderr or die 'Could not recreate STDERR'; ## no critic
     close $oldstderr or die qq{Could not close STDERR copy: $!};
     my $vios = 0;
-- 
2.39.5