percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-27 16:12:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

VersionParser.pm: Quote SQL with q//

Browse Source
This commit is contained in:
Brian Fraser
2012-07-19 12:08:28 -03:00
parent cbded60b8c
commit 02665e802e
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/VersionParser.pm
View File

@@ -139,7 +139,7 @@ sub BUILDARGS {
my $dbh = $_[0]; my $dbh = $_[0];
local $dbh->{FetchHashKeyName} = 'NAME_lc'; local $dbh->{FetchHashKeyName} = 'NAME_lc';
my $query = eval { my $query = eval {
$dbh->selectall_arrayref(q<SHOW VARIABLES LIKE 'version%'>, { Slice => {} }) $dbh->selectall_arrayref(q/SHOW VARIABLES LIKE 'version%'/, { Slice => {} })
}; };
if ( $query ) { if ( $query ) {
$query = { map { $_->{variable_name} => $_->{value} } @$query }; $query = { map { $_->{variable_name} => $_->{value} } @$query };
@@ -147,7 +147,7 @@ sub BUILDARGS {
$args{flavor} = delete $query->{version_comment} $args{flavor} = delete $query->{version_comment}
if $query->{version_comment}; if $query->{version_comment};
} }
elsif ( eval { ($query) = $dbh->selectrow_array('SELECT VERSION()') } ) { elsif ( eval { ($query) = $dbh->selectrow_array(q/SELECT VERSION()/) } ) {
@args{@methods} = $self->_split_version($query); @args{@methods} = $self->_split_version($query);
} }
else { else {