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

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

diff --git a/t/20-good.t b/t/20-good.t
index d13977d91f3886eb25f9295932b942a6d86d7399..510a0a359e63a9f84a914361e0db3623f0bc2106 100644 (file)
--- a/t/20-good.t
+++ b/t/20-good.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;