mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-22 11:54:54 +00:00
Stringify Perl vars so $PERL_VERSION isn't an object. Diag the versions so I can see the real results.
This commit is contained in:
@@ -175,9 +175,11 @@ sub get_perl_variable {
|
||||
# append ::VERSION to get the module's version.
|
||||
my $var = $item->{vars}->[0] || ($item->{item} . '::VERSION');
|
||||
my $version = do { no strict; ${*{$var}}; };
|
||||
PTDEBUG && _d('Perl version for', $var, '=', $version);
|
||||
PTDEBUG && _d('Perl version for', $var, '=', "$version");
|
||||
|
||||
return $version;
|
||||
# Explicitly stringify this else $PERL_VERSION will return
|
||||
# as a version object.
|
||||
return $version ? "$version" : $version;
|
||||
}
|
||||
|
||||
sub get_mysql_variable {
|
||||
|
@@ -39,6 +39,7 @@ sub test_v {
|
||||
items => $items,
|
||||
dbh => $dbh,
|
||||
);
|
||||
diag(Dumper($versions));
|
||||
is_deeply(
|
||||
$versions,
|
||||
$args{versions},
|
||||
|
Reference in New Issue
Block a user