X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=sidebyside;f=lib%2FTest%2FValgrind%2FVersion.pm;h=d966008b2e2c8a6f83d9baf76fe90e2ceded446a;hb=f2071d95aaaa4817e91cc33530deedc8d701d44d;hp=b2da36b9d83f4d13657bf3b3dc46f517855cfeb7;hpb=8a3289dfc8449aed2d53e35c52c269009630293e;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Version.pm b/lib/Test/Valgrind/Version.pm index b2da36b..d966008 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.18 +Version 1.19 =cut -our $VERSION = '1.18'; +our $VERSION = '1.19'; =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; @@ -160,7 +160,7 @@ You can find documentation for this module with the perldoc command. =head1 COPYRIGHT & LICENSE -Copyright 2015 Vincent Pit, all rights reserved. +Copyright 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.