X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FVersion.pm;h=94661bb9e838d1e21bad43a1f9c35f90a5870197;hb=f69f14a04c9b6c47bb1468e192977632cc1c854a;hp=749b1d60558f4859090475d23e40281b0b1876a5;hpb=5dd4ffc1370138eb1e9501f82a69f98208e4c0ff;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Version.pm b/lib/Test/Valgrind/Version.pm index 749b1d6..94661bb 100644 --- a/lib/Test/Valgrind/Version.pm +++ b/lib/Test/Valgrind/Version.pm @@ -9,11 +9,11 @@ Test::Valgrind::Version - Object class for valgrind versions. =head1 VERSION -Version 1.17 +Version 1.18 =cut -our $VERSION = '1.17'; +our $VERSION = '1.18'; =head1 DESCRIPTION @@ -65,11 +65,11 @@ sub new { my $output = $args{command_output}; my $string; if (defined $output) { - ($string) = $output =~ /^valgrind-([0-9]+(?:\.[0-9]+)*)(?!\.)/; + ($string) = $output =~ /^valgrind-([0-9]+(?:\.[0-9]+)*)/; } else { $string = $args{string}; return $string if $string->$instanceof(__PACKAGE__); - if (defined $string and $string =~ /^([0-9]+(?:\.[0-9]+)*)(?!\.)/) { + if (defined $string and $string =~ /^([0-9]+(?:\.[0-9]+)*)/) { $string = $1; } else { $string = undef;