X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=gen.pl;h=eb751e417ff9f62136cd0fa0ef99112e685edb2b;hb=550ce3f06282d07682d0816234855efee985aa9a;hp=99d5ca5cbf196d17b7af18e2f876b243056f87f7;hpb=0e72be5f3401932cb010b7069470e9ee999ff287;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/gen.pl b/gen.pl
index 99d5ca5..eb751e4 100755
--- a/gen.pl
+++ b/gen.pl
@@ -1,5 +1,3 @@
-#!perl
-
 use strict;
 use warnings;
 
@@ -15,13 +13,18 @@ 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 $@;
  }
+ plan tests => 1;
+ fail('fake');
 }
 
 1;