=head1 VERSION
-Version 1.17
+Version 1.19
=cut
-our $VERSION = '1.17';
+our $VERSION = '1.19';
=head1 DESCRIPTION
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;
=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.