Fix OptionParser to parse new version format.

This commit is contained in:
Daniel Nichter
2011-09-01 09:01:34 -06:00
parent dcceaae66b
commit 1373f69361
2 changed files with 2 additions and 2 deletions

View File

@@ -221,7 +221,7 @@ sub get_specs {
$self->{DSNParser} = DSNParser->new(opts => \@dsn_opts);
}
if ( $contents =~ m/^(Percona Toolkit v.+)$/m ) {
if ( $contents =~ m/^=head1 VERSION\n\n^(.+)$/m ) {
$self->{version} = $1;
MKDEBUG && _d($self->{version});
}