From: Vincent Pit <vince@profvince.com>
Date: Tue, 9 Sep 2008 22:02:06 +0000 (+0200)
Subject: Fix generations of XSLoader suppressions
X-Git-Tag: v0.06~1
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=c68960c84e31ce63f76ffd82bc309d0cde006fa2;p=perl%2Fmodules%2FTest-Valgrind.git

Fix generations of XSLoader suppressions
---

diff --git a/gen.pl b/gen.pl
index 65726b0..9376b5c 100755
--- a/gen.pl
+++ b/gen.pl
@@ -13,12 +13,15 @@ eval {
 if ($@) {
  plan skip_all => 'Test::Valgrind is required to run test your distribution with valgrind';
 } else {
- eval {
+ eval "
+  use lib qw{blib/arch};
   require XSLoader;
-  XSLoader::load('Test::Valgrind', $Test::Valgrind::VERSION);
- };
+  XSLoader::load('Test::Valgrind', \$Test::Valgrind::VERSION);
+ ";
  unless ($@) {
   Test::Valgrind::notleak("valgrind it!");
+ } else {
+  diag $@;
  }
 }