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

PT-126 Fix remove comments regex

Browse Source
This commit is contained in:
Carlos Salguero
2017-05-17 09:38:19 -03:00
parent aefc68c6bd
commit 43b50f8a8c
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bin/pt-online-schema-change
View File

@@ -10053,9 +10053,13 @@ sub find_renamed_cols {
/x; /x;
my $table_ident = qr/$unquoted_ident|`$quoted_ident`|"$ansi_quotes_ident"/; my $table_ident = qr/$unquoted_ident|`$quoted_ident`|"$ansi_quotes_ident"/;
my $alter_change_col_re = qr/\bCHANGE \s+ (?:COLUMN \s+)? (?:COMMENT\s+[^\]['].*?[^\]['])?
(?:COMMENT\s+[^\]["].*?[^\]["])? # remove comments
($table_ident) \s+ ($table_ident)/ix; $alter =~ s/^(.*?)\s+COMMENT\s+'(.*?[^\\]')+(.*)/$1$3/;
$alter =~ s/^(.*?)\s+COMMENT\s+"(.*?[^\\]")+(.*)/$1$3/;
my $alter_change_col_re = qr/\bCHANGE \s+ (?:COLUMN \s+)?
($table_ident) \s+ ($table_ident)/ix;
my %renames; my %renames;
while ( $alter =~ /$alter_change_col_re/g ) { while ( $alter =~ /$alter_change_col_re/g ) {