percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-22 11:54:54 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merged fix-1037211-distill-lowercase-lock-tables

Browse Source
This commit is contained in:
Brian Fraser
2012-08-24 19:52:26 -03:00
parent 8d6f2c97e3 c3fe755615
commit ee71455900
8 changed files with 21 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/QueryParser.pm
View File

@@ -103,10 +103,9 @@ sub get_tables {
# Another special case: LOCK TABLES tbl [[AS] alias] READ|WRITE, etc.
# We strip the LOCK TABLES stuff and append "FROM" to fake a SELECT
# statement and allow $tbl_regex to match below.
if ( $query =~ /^\s*LOCK TABLES/i ) {
if ( $query =~ s/^\s*LOCK TABLES\s+//i ) {
PTDEBUG && _d('Special table type: LOCK TABLES');
$query =~ s/^(\s*LOCK TABLES\s+)//;
$query =~ s/\s+(?:READ|WRITE|LOCAL)+\s*//g;
$query =~ s/\s+(?:READ(?:\s+LOCAL)?|WRITE)\s*//gi;
PTDEBUG && _d('Locked tables:', $query);
$query = "FROM $query";
}