percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2026-03-01 02:00:46 +08:00
Code Issues Packages Projects Releases Wiki Activity

Compatibility for older perl versions

Browse Source
This commit is contained in:
Amiel Montecillo
2017-01-15 21:06:16 -08:00
parent 5ea2f6b27f
commit 31fefa0605
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -10108,7 +10108,8 @@ sub create_new_table {
'CONSTRAINT `_' => 'CONSTRAINT `__',
'CONSTRAINT `' => 'CONSTRAINT `_'
);
$sql =~ s/((?^:CONSTRAINT `__|CONSTRAINT `_|CONSTRAINT `))/$search_dict{$1}/gm;
my $constraint_pattern = qr((CONSTRAINT `__|CONSTRAINT `_|CONSTRAINT `));
$sql =~ s/$constraint_pattern/$search_dict{$1}/gm;
if ( $o->get('default-engine') ) {
$sql =~ s/\s+ENGINE=\S+//;