Output more diagnostics when 'use Test::Valgrind' fails

[perl/modules/Test-Valgrind.git] / t / 21-good-block.t

diff --git a/t/21-good-block.t b/t/21-good-block.t
index 7eea4b5793e10c586f065ca5e64c35607312bc49..272ea53fd04770dc6a0992df7c95ff538bdf3592 100644 (file)
--- a/t/21-good-block.t
+++ b/t/21-good-block.t
@@ -6,6 +6,9 @@ use warnings;
 use Test::More;
 use lib qw{blib/archpub};
 eval { use Test::Valgrind };
-plan skip_all => 'Test::Valgrind is required to run test your distribution with valgrind' if $@;
+if ($@) {
+ diag $@;
+ plan skip_all => 'Test::Valgrind is required to run test your distribution with valgrind';
+}
 
 1;