-
Common.pm
566 567 246 246 247 247 if (@$value) { 248 248 my $op = (ref($opts) eq 'HASH' and ($opts->{intersect} or $opts->{contains})) ? '@>' : '&&'; 249 # old versions DBD::Pg is SO STUPID!!!! 250 # if ($DBD::Pg::VERSION<1.49) { 251 # my $value_string = '{'.join(',',@{$value}).'}'; 252 # return [" ($field $op ?) "], [$value_string]; 253 # } else { 254 # all versions before 2.0.0 also stupid 255 if ($DBD::Pg::VERSION=~/^1\./) { 256 my $ph_string = '?, 'x$#{$value}.'?'; 249 if ($DBD::Pg::VERSION=~/^1\./) { 250 my $ph_string = '?, 'x$#{$value}.'?'; 257 251 return [" ($field $op ARRAY[$ph_string]::integer[]) "], $value; 258 252 } else { 259 return [" ($field $op ?::integer[]) "], [$value]; 260 } 253 return [" ($field $op ?::integer[]) "], [$value]; 254 } 261 255 } else { 262 256 return [' FALSE '], []; 263 257 }