percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-20 09:40:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

Change mk- to pt- in QueryRewriter.pm.

Browse Source
This commit is contained in:
Daniel Nichter
2011-07-12 16:40:00 -06:00
parent 39ea018581
commit 4127a165bc
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/QueryRewriter.pm
View File

@@ -139,9 +139,10 @@ sub __shorten {
# parameters, canonicalizing whitespace, etc. See # parameters, canonicalizing whitespace, etc. See
# http://dev.mysql.com/doc/refman/5.0/en/literals.html for literal syntax. # http://dev.mysql.com/doc/refman/5.0/en/literals.html for literal syntax.
# Note: Any changes to this function must be profiled for speed! Speed of this # Note: Any changes to this function must be profiled for speed! Speed of this
# function is critical for mk-log-parser. There are known bugs in this, but the # function is critical for pt-query-digest. There are known bugs in this,
# balance between maybe-you-get-a-bug and speed favors speed. See past # but the balance between maybe-you-get-a-bug and speed favors speed.
# revisions of this subroutine for more correct, but slower, regexes. # See past Maatkit revisions of this subroutine for more correct, but slower,
# regexes.
sub fingerprint { sub fingerprint {
my ( $self, $query ) = @_; my ( $self, $query ) = @_;
@@ -151,7 +152,7 @@ sub fingerprint {
$query =~ m#\ASELECT /\*!40001 SQL_NO_CACHE \*/ \* FROM `# # mysqldump query $query =~ m#\ASELECT /\*!40001 SQL_NO_CACHE \*/ \* FROM `# # mysqldump query
&& return 'mysqldump'; && return 'mysqldump';
# Matches queries like REPLACE /*foo.bar:3/3*/ INTO checksum.checksum # Matches queries like REPLACE /*foo.bar:3/3*/ INTO checksum.checksum
$query =~ m#/\*\w+\.\w+:[0-9]/[0-9]\*/# # mk-table-checksum, etc query $query =~ m#/\*\w+\.\w+:[0-9]/[0-9]\*/# # pt-table-checksum, etc query
&& return 'percona-toolkit'; && return 'percona-toolkit';
# Administrator commands appear to be a comment, so return them as-is # Administrator commands appear to be a comment, so return them as-is
$query =~ m/\Aadministrator command: / $query =~ m/\Aadministrator command: /