X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Makefile.PL;h=221229fbbb6c4df9720c3d3374d221231b625418;hb=7afc3697a183708c5c8efe99ebd40c01e173e0b1;hp=1d37fb9cc8b427147f5454fbea4ed6a39c890012;hpb=d685884acaef843ed4ce04a48d7da565d52280fb;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/Makefile.PL b/Makefile.PL
index 1d37fb9..221229f 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,25 +1,26 @@
+use 5.006;
+
 use strict;
 use warnings;
 use ExtUtils::MakeMaker;
 
-my $has_vg = 0;
 my $vg;
 print 'Checking for valgrind >= 3.1.0 in PATH... ';
 for (split /:/, $ENV{PATH}) {
- $vg = $_ . '/valgrind';
- if (-x $vg) {
-  my $ver = qx/$vg --version/;
+ $_ .= '/valgrind';
+ if (-x) {
+  my $ver = qx/$_ --version/;
   if ($ver =~ s/^valgrind-//) {
    $ver = join '', map chr, split /\./, $ver;
    if ($ver ge v3.1.0) {
-    print "yes, $vg\n";
-    $has_vg = 1;
+    print "yes, $_\n";
+    $vg = $_;
     last;
    }
   }
  }
 }
-if (!$has_vg) {
+if (!$vg) {
  print "no\n";
  die 'OS unsupported';
 }