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 93765cf05a18b5e66e0b79703bdcf53765ad1bb6..4250639846c86dfe876be3116b13526d9e657d2c 100644 (file)
--- a/t/30-bad.t
+++ b/t/30-bad.t
@@ -29,16 +29,17 @@ sub tester {
  return $passed;
 }
 
-eval {
+eval "
  require XSLoader;
- XSLoader::load('Test::Valgrind', 0.04);
-};
+ XSLoader::load('Test::Valgrind', 0.06);
+";
 if ($@) {
  plan skip_all => "XS test code not available ($@)";
 } else {
  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();