From 02665e802e1593ef0e32bbf78680ace3db6f6ddd Mon Sep 17 00:00:00 2001
From: Brian Fraser <brian.fraser@percona.com>
Date: Thu, 19 Jul 2012 12:08:28 -0300
Subject: [PATCH] VersionParser.pm: Quote SQL with q//

---
 lib/VersionParser.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/VersionParser.pm b/lib/VersionParser.pm
index 14ca9cf6..ea7e15e3 100644
--- a/lib/VersionParser.pm
+++ b/lib/VersionParser.pm
@@ -139,7 +139,7 @@ sub BUILDARGS {
          my $dbh = $_[0];
          local $dbh->{FetchHashKeyName} = 'NAME_lc';
          my $query = eval {
-            $dbh->selectall_arrayref(q<SHOW VARIABLES LIKE 'version%'>, { Slice => {} })
+            $dbh->selectall_arrayref(q/SHOW VARIABLES LIKE 'version%'/, { Slice => {} })
          };
          if ( $query ) {
             $query = { map { $_->{variable_name} => $_->{value} } @$query };
@@ -147,7 +147,7 @@ sub BUILDARGS {
             $args{flavor} = delete $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);
          }
          else {