Signed-off-by: George Williams <george@nekls.org>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
my %lookup;
@lookup{@$param_names} = @$sql_params;
my %lookup;
@lookup{@$param_names} = @$sql_params;
- my @split = split /<<|>>/,$sql;
+ @split = split /<<|>>/,$sql;
my @tmpl_parameters;
for(my $i=0;$i<$#split/2;$i++) {
my $quoted = @$param_names ? $lookup{ $split[$i*2+1] } : @$sql_params[$i];
my @tmpl_parameters;
for(my $i=0;$i<$#split/2;$i++) {
my $quoted = @$param_names ? $lookup{ $split[$i*2+1] } : @$sql_params[$i];