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

[perl/modules/Test-Valgrind.git] / t / 30-bad.t

diff --git a/t/30-bad.t b/t/30-bad.t
index e20b42313f10cba955f687daadb0d1784dbd3759..4250639846c86dfe876be3116b13526d9e657d2c 100644 (file)
--- a/t/30-bad.t
+++ b/t/30-bad.t
@@ -39,6 +39,7 @@ if ($@) {
  use lib qw{blib/archpub};
  eval 'use Test::Valgrind cb => \&tester;';
  if ($@) {
+  diag $@;
   plan skip_all => 'Test::Valgrind is required to run test your distribution with valgrind';
  } else {
   Test::Valgrind::leak();