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});
}

View File

@@ -56,7 +56,7 @@ like(
$output = `$trunk/bin/pt-visual-explain --version 2>&1`;
like(
$output,
qr/v\d\.\d.\d+/,
qr/^pt-visual-explain \d\.\d\.\d+/m,
'--version works (bug 823394)'
);