X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FSession.pm;h=5ddc0b6a2b22fd3de6b1bfaf724a6533c2bdb70d;hb=f2071d95aaaa4817e91cc33530deedc8d701d44d;hp=d222f11ae788a4d0394607ca3728325b1325002a;hpb=5f7c59874ed712bf2787c3b0dbbaaf899fdd508c;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/lib/Test/Valgrind/Session.pm b/lib/Test/Valgrind/Session.pm
index d222f11..5ddc0b6 100644
--- a/lib/Test/Valgrind/Session.pm
+++ b/lib/Test/Valgrind/Session.pm
@@ -9,11 +9,11 @@ Test::Valgrind::Session - Test::Valgrind session object.
 
 =head1 VERSION
 
-Version 1.17
+Version 1.19
 
 =cut
 
-our $VERSION = '1.17';
+our $VERSION = '1.19';
 
 =head1 DESCRIPTION
 
@@ -132,13 +132,14 @@ sub new {
  for my $path (@paths) {
   next unless defined($path) and MM->maybe_command($path);
   my $output = qx/$path --version/;
-  $version   = do {
+  my $ver    = do {
    local $@;
    eval { Test::Valgrind::Version->new(command_output => $output) };
   };
-  if (defined $version) {
-   next if defined $min_version and $version < $min_version;
+  if (defined $ver) {
+   next if defined $min_version and $ver < $min_version;
    $valgrind = $path;
+   $version  = $ver;
    last;
   }
  }
@@ -641,7 +642,7 @@ You can find documentation for this module with the perldoc command.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2009,2010,2011,2013,2015 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011,2013,2015,2016 Vincent Pit, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.