percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-12-11 02:04:38 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix for 1038276: ChangeHandler doesn't quote varchar columns with hex-looking values

Browse Source
This commit is contained in:
Brian Fraser
2012-08-22 16:19:43 -03:00
parent 1481494ef1
commit e52ca00348
4 changed files with 65 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/Quoter.pm
View File

@@ -65,11 +65,12 @@ sub quote {
# Returns:
# Quoted value
sub quote_val {
my ( $self, $val ) = @_;
my ( $self, $val, %args ) = @_;
return 'NULL' unless defined $val; # undef = NULL
return "''" if $val eq ''; # blank string = ''
return $val if $val =~ m/^0x[0-9a-fA-F]+$/; # hex data
return $val if $val =~ m/^0x[0-9a-fA-F]+$/ # quote hex data
&& !$args{is_char}; # unless is_char is true
# Quote and return non-numeric vals.
$val =~ s/(['\\])/\\$1/g;