• 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 }