Don't quote FLOAT or DOUBLE in Quoter::quote_val().

This commit is contained in:
Daniel Nichter
2013-10-10 15:58:02 -07:00
parent 5e46d013a9
commit 166173a318
4 changed files with 50 additions and 19 deletions

View File

@@ -1873,6 +1873,8 @@ sub quote_val {
return $val if $val =~ m/^0x[0-9a-fA-F]+$/ # quote hex data
&& !$args{is_char}; # unless is_char is true
return $val if $args{is_float};
$val =~ s/(['\\])/\\$1/g;
return "'$val'";
}
@@ -3510,10 +3512,15 @@ sub make_UPDATE {
my $types = $self->{tbl_struct}->{type_for};
return "UPDATE $self->{dst_db_tbl} SET "
. join(', ', map {
my $is_char = ($types->{$_} || '') =~ m/char|text/i;
my $is_char = ($types->{$_} || '') =~ m/char|text/i;
my $is_float = ($types->{$_} || '') =~ m/float|double/i;
$self->{Quoter}->quote($_)
. '=' . $self->{Quoter}->quote_val($row->{$_},
is_char => $is_char);
. '='
. $self->{Quoter}->quote_val(
$row->{$_},
is_char => $is_char,
is_float => $is_float,
);
} grep { !$in_where{$_} } @cols)
. " WHERE $where LIMIT 1";
}
@@ -3552,10 +3559,16 @@ sub make_row {
return "$verb INTO $self->{dst_db_tbl}("
. join(', ', map { $q->quote($_) } @cols)
. ') VALUES ('
. join(', ', map {
my $is_char = ($type_for->{$_} || '') =~ m/char|text/i;
$q->quote_val($row->{$_},
is_char => $is_char) } @cols )
. join(', ',
map {
my $is_char = ($type_for->{$_} || '') =~ m/char|text/i;
my $is_float = ($type_for->{$_} || '') =~ m/float|double/i;
$q->quote_val(
$row->{$_},
is_char => $is_char,
is_float => $is_float,
)
} @cols)
. ')';
}
@@ -3564,9 +3577,11 @@ sub make_where_clause {
my @clauses = map {
my $val = $row->{$_};
my $sep = defined $val ? '=' : ' IS ';
my $is_char = ($self->{tbl_struct}->{type_for}->{$_} || '') =~ m/char|text/i;
my $is_char = ($self->{tbl_struct}->{type_for}->{$_} || '') =~ m/char|text/i;
my $is_float = ($self->{tbl_struct}->{type_for}->{$_} || '') =~ m/float|double/i;
$self->{Quoter}->quote($_) . $sep . $self->{Quoter}->quote_val($val,
is_char => $is_char);
is_char => $is_char,
is_float => $is_float);
} @$cols;
return join(' AND ', @clauses);
}