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

Merged fix-1038276-changehandler-hex-looking-vals

Browse Source
This commit is contained in:
Brian Fraser
2012-08-24 20:26:04 -03:00
parent a12fa70d98 ea62bf87f7
commit b84ac535d2
21 changed files with 151 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
bin/pt-heartbeat
View File

@@ -2396,11 +2396,12 @@ sub quote {
}
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
$val =~ s/(['\\])/\\$1/g;
return "'$val'";